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EXPLICACION 
DE LOS PROGRRHRS 


PROVINCIAS 


10 RFM PROGRAMA PROVINCIAS DE ESPAÑA PENINSULAR 

20 REM por 1 M ,-J .CABEI .1 O y F . Al ONSO PASTOR, t radur i do por* CRIS. 1 PRO 

00 PORDFR 13 s X NK 0,1.3 ¡ IIMK 1 ,0 :1NK 2,1. ? INK 3,26,6 

40 MGOE 0; PAPER OsPFN SsSPFRn INK 50,50¡GOSUB 1200 

50 LOCATE 5,5 sPRINT"PROVINCIAS" sLOCATE 9,10 ¡PRINT"DE" ¡LOCATE 7,1 5 ¡F'RINT"ESPAÑA 

11 

60 GOSUB 1270¡ MOOF 1 ¡F'FN I 

70 F'RINT :F'RTNT"E1 programa te ira ofreciendo el dibujo de 1 as dist iotas provin 
c i as de" s F'FN 2 sPR I NT sPRT NT " ESPAÑA PEN I MSI. ILAR " ¡ PFN 1 

80 F'RINT ¡F'RINT"Tu debes indicar de que provincia se trata. Para vol ver el 

MENU teclea 77 7 , La letra <? esta a la derecha de ] a P" 

90 F'FN 3:F'RINT :PRINT" PULSA UNA TECLA PARA CONTINUAR " ;F'EN I 

100 :¡ 4 $~ INKE Y $ : IE j*=" " THEN 3 00 EL SE CLS 

1.1.0 F'RINT ¡F'RINT" EL IGE UNA DE ESTAS OPCIONES : " ¡F’RINT :F'RINT 

120 F'RINT" 1.- CONTESTAR EL. TEST CON MAPA" ¡F'RINT 

1.30 F'RINT" 2.- CONTESTAR EL TEST SIN MAPA" ¡F'RINT 

140 F'RINT" 3,- REPASAR LAS PROVINCIAS" ¡F'RINT 

1.50 F'RINT" 4-- TERMINAR CON EL PROGRAMA" ¡F'RINT 

.1 60 1 Í-I NKE Y $ ; IF I £= " " THEN 160 

1.70 1 m-VAI di); TE IitKI OR 1 m >4 THEN 160 

180 Cl S ¡esc—4 ¡nt=0 

190 IF I m= 1 OR 1 m-2 THEN 200 EL.SE 220 
200 >:=25 5y=l 69 :p$-peri$ :co=2 ¡GOSUB 510 
210 pí-perj 1. $ ¡GOSUB 530 
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ON lo. GOTO 
RFM dibuja 
FOR w=l TO 


230 , 260 , 390,480 
provinclas 

í W ) í y = y í W ) 


GOSI.JB 510:F'RINT CHRi (7) ; ;NEXT 
REM MENU 2 

pv=INT(RND(l)*46+1 .5) :IF pv=pvp THEN 
pvp=pv :>;=;< (pv) :y = y(pv) :pi=pei<pv> 
co-3 ¡GOSIJB 51.0 ¡LOCATE 1,1 ¡F'RINT CHRi (181 


270 


220 
230 

240 EOR 'TO 47 r ;■;=;■;( w) :y = y(w) ¡pi=pei(w) 

250 
260 
270 
280 
290 

300 LOCATE 1,1. ¡INF'UT "One provincia es" jmisIF mi="" THEN 300 EL SE mi=UF'F'ERÍ (mí 
) 

310 TF mi-"Z 7 7" THEN CLSíGOTO 110 

320 IF mi=npi(pv) THEN pt=pt+lOsBOSUB 370¡GOTO 350 
330 ROUND t ,1000,80:LOCATE 1,1 ¡F'RINT CHRi(18);" NO 
" ;npi (pv) ¡ ¡F'FN 1 

340 BORDEE' 2,6¡G0SUB 1270 ¡BOEDER 13 ¡GOTO 360 
350 FOR re-100 TO 500 STEF' lOOrBOUND ] ,re 
S ACERTADO. PRUEBA OTRA VEZ 
360 F'EN 1 ¡co=2:G0SUB 510 ¡GOTO 260 
REM PUNTUACION 

LOCATE 20 ,25 ¡F'RINT"PUNTUACION =" ;pt ¡RETIJRN 
REM MENU 3 


es "¡mi ¡¡F'EN 3 ¡F'RINT" 


:NEXT ¡LOCATE 1,1 ¡F'EN 3¡PRINT 


ES 


HA 


370 
380 
390 
400 
4 1 O 
420 
430 
440 
450 
460 
470 
480 
490 
500 

510 


LOCATE 1 ,2 
i=0 ¡ WH.TLE 
LOCATE 15, 
i i= I NKEYi ¡ IE ii="" 
IF ü="Z" THEN CLS 
co=2 ¡GOStJB 510 
WEND 

CLS¡GOTO 110 
REM MENU 4 


5 ¡F'RINT"OTRA PROVINCIA PULSA TECLA, MENU Z" 
i<47:i=U+l ¡w=repa(i> ¡x=x (w) ¡y=y (w) ¡pi-pei(w) 
1 ¡F'RINT CHR'i (181 ¡npi(w) ¡CHRi(7) ¡co=3:G0SUB 
THEN 430 
GOTO 110 


; i o 


LOCATE 
END 

REM dibuja 


4 ¡F'RINT" CARGANDO OTRO PROGRAMA" ¡RI.JM 


?0 OR T GIN x*esc+50,y * esc-350 


530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
6 , 8 , 


1=LEN ( pi) 

FOR z = l TO 1 STEF' ; 
cÍ=MJDÍ(pÍ,z ,1) ¡ni= 
n=VAL(ni)Hese 


: MIDÍ (pi ,z + l ,1) 


cÍ="U" 
ci-"R" 
cÍ="D" 
cÍ="L" 
cÍ="E" 
cÍ="F" 
ci="G" 
ci="H" 
NEXT 
RETIJRN 
DATA 23,2 


IF 

IF 

IF 

IF 

TF 

IF 

IF 

IF 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


DRAWR 

DRAWR 

DRAWR 

DRAWR 

DRAWR 

DRAWR 

DRAWR 

DRAWR 


,n ,co 


n ,0 ,cc+ 
O ,-n ,co 
-n , O , c o 
n,n,co 
n,-n ,co 


5 

-n 


-n , c o 


-n , n ,co 


7,32 


40,12,43,3,28,18,1 


,34,5,36,45,1.9,1 ,26,31. ,24,33,9,46,44,37,39,35,6,21 ,47,41 


49 1 9 ' 


,10,7,30,22, 


1.4 ,38,20,1 1 


^9 1 7 4 

9 J ' ~ 9 1 ' 9^ 


9 ••• 1 1 


680 DATA ALAVA , ALBACETE , AL I CANTE , ALMERIA , ASTI.IR I AS , AVI LA , BADAJOZ , BARCEL ONA , BIJRG 
OS,CACERES , CADIZ,CASTELL ON , CIIJDAD REAL ,CORDOBA,CUENCA,GERONA , GRANADA,GUADALA JA 
RA,GUIPUZCOA,HUELVA 

690 DATA HUESCA,JAEN,LA CORUJA,LEON,LERIDA ,LA RIOJA ,LUGO,MADRID ,MALAGA ,MURCIA, 
NAVARRA,ORENSE,FALENCIA,PONTEVEDRA,SALAMANCA,CANTABRIA ,SEGOVIA 

700 DATA SEVILLA,SORIA,TARRAGONA,TERUEL,TOLEDO,VALENCIA,VALLADO!.ID,VIZCAYA ,7AM 
ORA,ZARAGOZA 

710 DATA H4U1E1R2E1R5U2E1R1E1R2D1R2F1R9E1 F2R5F1R7E l R1F1R3F1E2F2R7F1R1D2R5D1F1 R 
4F1R6U2R2F1R2F1 D2E1R5F1R3E1R3D2F1. D3G8L4G2L1G2L 1 G1 D 3. F1 G1L1 G3D1 G2D1 G1 D1 G1 D3F1D1F 
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1D1F3G7D1G1D2G t L2G2L1G302G2D1L1H11..2G 1 

720 DAT A L 8L882D1L. 3G5L1H5L1 U4H4I..5U5E5H4E2U2E2H2U2H2E 1R3U5E2II8F7R1F2I 121 21 )2H 11 4R 
1. L7U2H1L1G1 L3I.J2E 1U5 

730 DATA 71, 168 ,H1U1E1H.UJ1R2F2R4G1D1G2D1I..1H1 L1 H1 

740 DATA 74 , J 23 , L1 U9R7R7D2F1 D1F1D2L 1 H11.. 1 .01 G1 D1 G1D1 L2G11. 1 G3H11. .1IJ2H2 

750 DATA 89,121 , H1E1IJ4R6E1R1 F2G7D1G1H1U t H1 U1 

760 DATA 76,1 05 ,G1L5E2U1E6U3R2F 1D1F1D1F.1D1G1 D2G2D11. 1H1.1..2 

770 DATA 40,1 70 , U1H1IJ6R8E1F2R5F1R3D t L1 G2I..3G 1L3G1L 5811. 2 

780 DATA 52,140,H3R1E4U4R3F1D1F2D3G1L 1 G3L3 

790 DATA 41 ,119,L3H4E2U2E2H2E2F2R1F1R8E1R2E3F1D3G1D282L t 83D3G1L7H1 

800 DATA 1 09,1 55 ,H 1 U1H1 U1E1 U2E1 U4F3R2F1D3R2F1 G5I..4U 1 

810 DATA 63,162 , H2LJ3E2R1U3R1E1R4D1F1G1L1F2G1D4F2G2D1G2L 5U1H11J1E1U2 

820 DATA 38,1 33 , G2U2H2E1R3U5E1R3E2R1F1 R3F3D4F382I..2G 11..8H 1L1H2 

830 DATA 43,101 ,1.11.J4E 1R8E1R1D1G1D1G3D1 F2G31 1 H5 

840 DATA 90,138,1.11.HE2U2F2U1E2R3F1R1F1 G3D1 G2D1 G1 DI 81 H1.I..2H1 


850 DATA 
860 DATA 


1 24,1... 1H11.1E2U2E1U3R6F2E1R3E1R2F1D9G11.61.7HI 


970 DATA 
980 DATA 
990 DATA 33,167 


,113,1.3Ü2H2U5E3R2E .1 R1F2R1 F1 D5F1 D4R1 G11. 1 G11 1 G1 H1112H2 
870 DATA 72,1.33,1.1U5H1U3R1 El R1 ElR1E2R2F1R1 F3D1F2R1 G2D1 G1 D2G11 5I..5H1 
880 DATA 1 15,1 63 ,H H.2H3Ü1 R3F1 R3E1R3D3E1 D3G3H11. 2112 

890 DATA 63,107,1.. 1H2E1R1.E1R1.ElR2E1 R4E1.1.11 E31.UR1 F1D5G6D1 G2I .4HJ.I..1H1U1 
900 DATA 69,145,H11.J3H 1 Ll 1 E1.R5E1R7F1 D4G.1.1.. 1 H11. 7G2L 1 811.. 1811. 1U1H1U1 
910 DATA 75 í 1. 71 ,U4R6G1.DIG21 3 
920 DATA 33 , .1 09 , IJ5E5R3F1R3D31.2G1 D7G1 H3I...5 
930 DATA 89'1.61. , L11.J7H1 E1. U1F1R4F1R6D9G2D1G2L1 H6 
940 DATA 62,1 15 , H1U5H1R6R6E1R1F2D383D.1 G1I..4811 2811.21.14 
950 DATA 25 ’ 1.69 , H4IJ1E l R2E t R5U2E1 R1. E1 R2D1 G1D2G1 D2G1 D21.3811. 3 
960 DATA 43,1 63 ,1. 3E1H11.11!.. 11J2F1 U1R2E1. R5E1R3E .1R3E1 G1 D3G1 D4I. 3D2I 1 H .1 L 6H1 
100,160 ,IJ6U5R2F1R2F1.D2E1R2D5G1D2G1018!!.. 281!.. 1 821.1811.J5E2 
70,163, U4E1. E1 R1F1R3F1 R1 F281 D2I. 1 H2I 1811. 3H2 

?E 1.1.J4E 1.I.I2E 11.J2E 1. R2F1R1D6F10281 021.1 81.!.. 2H2 
1000 DATA 62,141 ,H1L 1 Gil..3E.2R 1E1 U1R1 F11.11 F2R1 E2D1 F1D3F1 D1 F1 D3I. 1811 1811.131.4 
1 01.0 DATA 59,104 ,8201L382H2U1E2U1 F1 U1 R2F1 R2E1 R1 F2R1 D1. E1 R1 F1.1.. 7 

1 020 DATA 80,1 16 ,L2IJ2E2R1EJ.R2I.I1 F1 UlFl I.I1R1FJ.R1D281 F1 01.F1 0! F1 02311. 2821.. 1 62U1HHUH 
11.J1H.1. 

1030 DATA 77,1.66 ,L2UIE7I.I1 E3U1 El FI.R1.D2R5D7B2D1 81 DI 81 DI F132L. 1 HU..1 U1 El H2L1 H1. 

1 040 DATA 30 , J 59 , U2H1 U5R4F2R2EI. R2D1. F1 G1D2G .11. 181.1.7 
1.050 DATA 55,163 ,U4E 11.J3E 1 R3F1. D1 F 1R1 32D3E2D2G1 H11... 2G11. 2I.J3H 1 
1 060 DATA 24,161 ,1..I2F 11.I5R3E 1.R3D281L2D5L 1811.3 
1.070 DATA 44,1 44 ,G2L3E 1 U8E2R3F1R7F1 D4G4L.4H 1L1 

1 080 DATA 57,1 72 ,H1 E2RJ I.I1R4E1.R1 F1R3F1.I.. 1G1 D.1.I..2G11. 1 D3I 7H11.11 H1.1 3 
1090 DATA 58,149 , U1H1E2R1E3R4F2D2I 1 G3L. 1 82D1G11. 1I.I2H2 
1 1 00 DATA 43,1 06 ,81 H1E1U7E1R2U3R4E1 02F2D2R3F7D7F 1I..2811..3G1I.. 8 
•1110 DATA 69,154 ,H2R1. E2U1 E2R3E1 R1 F2R1F1.D283D1 F1. D11..5H 11 4112 
1 .1 70 DATA 98,1.48,1.1 U1 E11J3E1R1E2R1 E.1R2E1F1 D.1.F1 D1 G21.1 821.. 1 81 D1F1 811 .1 H11.1 H1 
1 130 DATA 84,142,H3E11.J3R 1 E1 R1E1R3E1.U2R1 F1 R3F1R1F1.D1.81 D11 7G2D1 G7D2G2D 1L.1H1I.1 H2U 
1 


1140 DATA 56,1 34 , G1H3U4R3E1R3E1 R1F1R4D3E1. R1 E1R1D1F1 D5L1. G1 L.3G 1H2L6H1 
1 1 50 DATA 87,132,L..4F 1IJ2E11.11 E2F1. R2F1R2F1 D3F1D1 F1D1F1U. 811...6H 1 (.11 H11.12 
1160 DATA 52,152 ,U5U6R3F1D3R2E1R2F1D1F1D1G3L1G2L3H1L1 
1170 DATA 70,1 73 ,1.21.11.EIR 1E2F2R1. D4I.. 1 Hll. .1H31 1 
1 180 DATA 45,155, U2L2IJ2H1L3E1U2R3F1R6F 3. R1 D9L.6H 1L 2E7 

1 190 DATA 81 ,1 51 , l. 2U1H1U1E3U2H1 U.1R1F1 R1 E2H1 II 1E1 l.l 1 F11! 1E1 E 3 D7R1 F6R1 E2D6H U. 1 H11....3H 

1.L1D2G1L3G1L1G1L1.U1H1 

1200 SYMBOL. AFTER 63 

1210 SYMBOL 64,118 ,220,0,230,246,222,206,0 
1270 DIM repa(47> ,np*<47) ,x (47) , y <47> ,pe$(47> 

1230 FOR i ~ 1 TO 47 :READ repa(i) :NEXT 

1240 EOR i — 1 TO 47:READ npí(i ) sNEXT:READ peri $ ,peri1 : 
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1250 FOR i = l TO 47 ; REAO x ( i ) , y ( i ) ,peí ( i) ;NEXT 
1260 RETIJRN 

1270 FOR re= 1 TO R99 ¡NEXT ¡RETIJRN 
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V3 



PUENTE 


9 RESTORE 4000:FOR 1=0 TO 15 :READ JsINK I,J:NEXT I 


0:9-11 :C=3:ÜTM c í 1 1 ,6> :RESTORE 5000 ;FOR i =0 TO 5 : R'EAD j : p í i ) = j : N 


,1 , j 


129„129, 


1 

,255,179.129,: 


10 re=lOOO:sc 
EXT i 

20 SYMBOL AFTER 249 

21 SYMBOL 250,255,1 

22 SYMBOL 251,255,1.28,128, 

20 SYMBOI 252,255,129,129,755,255,150,150, 
74 S YMBOL 253 ,0,207,0 ,24,124,0,24.1 ,0 

25 MODE 1¡BOEDER 1:PAPER 0:PEN 1:FOR T 
T IsREAD XM :LOCATE 1,22 SPRINT X* 

26 X$=INKEYt:IF Xf="" BOTfl 26 EI..SE BOTO 40 
40 MODE O; PAPER 10 :CLS sGOSI.JB 2000: GOTO 1000 


TO 17 sREAD Xísl.OCATF 1,I:PRTNT XT sNE X 


50 FOR i=0 TO 11 S F0R 
60 FOR 


j=0 TO 6sco=TNT(RND(6)*6) 
i=0 TO 11 :FOR j=0 TO 6;PAPER c(i , j):LOCATE 1+3, 
AF'ER 4 :PEN O: FOR i = 


C (1,j)=pico) 
i 


:IMEXT 


53) :NEXT i sRETlJRN 
70 PEN 1 : PAPER 5:FOR 


TO 16 :LOCATE 1,1. sPRINT CHR$(253) :LOCATE 11 


j , i íRETI.JRN 

PRTNT " ";NEXT j , i ;P 
1:PRINT CHE*(2 


i=3 TO 4:LOCATE 1,i;PRTNT CHRÍ(251) 


¡CHR*(750):LOCATE 10,i 
!CHR*(250>;LOCATE 10,1 


SPRINT CHRÍ (751.) ;CHRí (250) ;LOCATE 1 ,1+14sPRINT CHR$(25.1) 

+ 14 sPRINT CHR*(251) ;CHRÍ(250) sNEXT í 
72 FOR i =5 TO 1 6 ; LOCATE 2,1 sPRINT CHRí (252) si. OCATE 10,i sPRINT CHR*(752) sNEXT i 
sRETURN 


80 = I NT (RND (6) #12) :y=INT (RND 

87 IF x >-f +2 OR x <-f -1 BOTO 80 


(6)#7):IF c(x,y)=~1 BOTO 80 


84 PEN 
LOCATE 
90 PEN 


9:PAPER 7: LOCATE 


,20 SPRINT "SE VA A CAER" 


i,22sPRINT " "sNEXT I: FOR I =1 TO 1000:NEXT T 
9:PAPER 7sLOCATE 6,24sPRINT "MOVIMIENTO" 

92 m*=INKEY* :IF m$="" BOTO 92 

THEN pu=10s z =f- 1: w=c-l :BOTO 120 
THEN pu=10:z=-f — 1 sw=csGOTO 120 
THEN pu=10:z=-f-l :w=c + l sGOTO 120 
THEN pu=20 :z=-f sw=c-l sBOTO 170 
THEN pu=20 sz=-f ;w=c sGOTO 120 
THEN pu=20:z=f :w=r+lsBOTO 
THEN pu=4U s 7. =T +1. sw : 

THEN pu=4ü sz=f+ 1 s w ; 

THEN pu=40:z=-f + l 


PAPER C(X , Y) 


FOR 1 = 


TO 16 


94 
96 
98 
1 00 
102 
1 04 
106 
108 
1 10 
1 12 
120 
125 


IF m$="q" 

IF m$="w" 

IF mí="e" 

IF m$="a" 

IF mí="s" 

IF mst="d" 

IF m$="z" 

IF m#="x" 

IF m$="c" 

BOTO 92 
IF z <0 OR z >11 
IF c(z,w)=-1 


1 70 

=c-lsBOTO 170 
=c s GOTO 1 70 
;w=c+lsBOTO 170 


OR w : -0 OR w 
GOTO 92 


GOTO 92 
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130 PAPER c (f ,d ¡LOCATE c+3 ,-f +5 :PRINT " " «PEN 9: PAPER c i 7 . , wl sLOCATE w+3,z+5;PR 
INI CHR$<248> 

140 IF c (y ,y>=c(z ,w) THEN pu=pu*2 
.'I 50 c i!x , y) —3 st — z se-w 

155 PAPER 4 :PEN O: LOCATE y+3 ,x+5«PRINT CHR$(253) 

160 sc-sc+pu :PEN 1:PAPER 7sLOCATE 14,10sPRINT se sIF sc>re THEN re=sc:LOCATE 14 
,6 SPRINT re 

200 PAPER lOsFOR i=20 TÓ 24:F0R j=5 TO 16 :LOCATE j,isPRINT" "sNEXT j,i 
210 IF x=z AND a =w GOTO 3000 

300 GOTO 80 

1000 GQSUB 70 sBOSUB 50:PEN 9:G0SUB 60«PAPER r<11 ,31 «LOCATE 6,16sPRINT CHR*(248 
) s:GOTO 80 

2000 PAPER 6 sF'EN 12 s LOCATE 14,4 sPRINT "RECORD" «LOCATE 1 4,8 sPRINT "PUNTOS" sPAPER 
7 «LOCATE 14,12 SPRINT"© W E" «LOCATE 3.4,13 sPRINT" " «LOCATE 14,14 sPRINT" A S 

D"«LOCATE 14,.15sPRINT" "«LOCATE 14,16sPRINT"7 X C" 

201 O PAPER 7 sPEN .1 sLOCATE 14,1 O sF'RINT se sLOCATE 14,6:F'RINT re :RETURN 

3000 PAPER 7 sPEN 1 «LOCATE 6 ,20sPRINT"TE CATSTE":LOCATE 2,24:PRTNT"0sOTRO FsFI 
NAL IZAR" 

3010 NT-INKEYT; IF M*="" GOTO 301.0 

3020 IF M3*=" F" OR M*="-f" THEN MODE 3 «PAPER Os PEN 1 «GOTO 6000 

3030 IF M*="0" OR M$="o" THEN PAPER 10 sCl.S :sr=0 sGOSUB 2000 s-f = l 1 sc=3 «GOTO 1000 

3040 GOTO 3010 

4000 DATA 1,6,8,9,11,15,18,24,25,0,26,7,2,13,14,21 
5000 DATA 5,1,2,3,6,7 
6000 RUN" 

10000 DATA " PUENTE"," " ," El puente se esta cayendo, has de", 

"aguantar todo lo que puedas."," Para moverte usa las teclas s Q,W,F,A,8 , ","D,7 

Y O " 

, A , O » 

1.0002 DATA " Ganas 10 puntos si te mueves hacia ade-" ," 1 ante, 20 si te mueves 
en la horizontal","y 40 si te mueves hacia atras."," Multiplicas por 2 la punt 
uacion si te","pones sotare una badosa que se va a caer." 

10004 DATA " PULSA TECLA PARA COMENZAR" 
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TRATAMIENTO 

DE TEXTO 


10 REM 
70 REM 

30 MODE 1 
50 F'RINT 
paces de 


PROGRAMA DEMQSTRAT IVO „ DEL. 
COPYRIGHT M.J.C, y F.A.P. 


TRATAMIENTO DE. 


TRADUCIDO POR CRIS,,1985 
! INK 3,77;PAPER O : PEN 1 
"Todos los programas comerciales de tratamiento de textos son ca 

sustituir letras o palabras por otras para hacer mucho mas -fácil 


i BOEDER 4 s INK 0,13:1NK 1 ,0:1NK 7,3 


el trabajo 
60 PRINT"E1 
st os 

70 a*--"EL 
OBADO" 

80 bÍ="R" 

90 c$="L" 

100 GOTO 140 


, ";PRINT 

objetivo de este programa es demos— trar un poco como funcionan e 
programas. Para ello dispones de este ejemplo." :PRTNT 
PERRO DE SAN ROQUE NO TIENE RABO PORQUE RAMON RAMIREZ SE I..0 HA R 


110 INPUT "INTRODUCE UNA ERASE";ai:ai=UPPFRÍ(ai) 

120 PRINT "QUE LETRA 0 PALABRA SUSTITUIMOS " ; si. INE TNPUT bi :bÍ=IJPPERÍ <bi> 
130 PRINT "POR CUAL. LA SUSTITUIMOS " ; ;l INE TNPUT ci :ci=UPPERÍ (ci) 

140 PRINT : PRINT "ERASE: " ;PEN 7:PRINT a$ :F'RINT :PEN 1 
150 PRINT "SUSTITUIMOS ";bi;" POR " ;cÍ:PRTNT 
170 a=L.EN (a$) 

180 b=LEN(bi) 


3.90 FOR z = í TO a-b + 1 
210 dÍ=MIDi(aÍ,z,b) 

270 IF diObi THEIvl 260 
230 pi=LEFTÍ (ai ,7.-1 ) 

240 f Í=Rl'GHTi (ai,a-z-b+1) 

250 ai—pi+ci+fi 
260 NEXT 

270 PRINT "LA FRASE UNA VEZ SUSTITUIDA ES; ":PRINT:PEN 3:PRINT ai;PRINT :PEN 1 
280 PRINT "QUIERES SUSTITUIR OTRA LETRA 0 PALABRA, INTRODUCIR UNA NUEVA 0 TERM 
INAR EL PROGRAMA","S/I/T" 


290 Ü-INKEYÍ- 

300 IF li="S" OR li="s" THEN 170 

310 IF li="J" OR lí=" i" THEN RIJN 110 

320 IF 1 i—" T" OR li="t." THEN CI..S: LOCATE 7,10 «PRINT "PREPARADO PARA OTRO F'ROGRA 

MA"sRUN"" 

330 GOTO 290 
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DISPARO 


K> INK^O ,1:1NK 1,24:1 NK 2 , 6 , 3 : 1 NK 3,6,26: PEN 1 :PAPER O :BOEDER t: MODE 
30 CLS :ac=0 :DIM sí(9) : RESTORE 9900:FÜR i=0 TO 9:READ eí :sí (i) =eí nNEXT 


:SPEED 
i 


I 


50 SYMBOL 255,255,129,189,189,189,189,1.29,255 

52 FOR n =0 TO 9:F0R m=0 TO 9:LOCATE 2+m,2+n:PRINT CHRí(255) :NEXT m,n:LOCATE 19 
, 1 : F'R I NT "ENT-SAL ENT-BAL" : LOCATE 16,25 :PRINT "SCORE: 200" :PU=200 
54 GOSUB 500 
60 t =0:DIM n(9,9) 

62 FOR i=l TO 7 

64 x = INT< H-RND#8) ;y=INT(1+RNDK8) :FOR m=>;-l TO x + 1 :FOR n=y-l TO y+1 ; TF n(m,n> = 
1 THEN GOTO 64 

65 NEXT n,m 

66 n (:•: ,y)=l :NEXT i 


80 GOTO 1000 


100 d = l :x=x-l :IF x=-l THEN x=0: GOTO 200 
102 GOSUB 150 

104 yy=y-l:IF yy<0 THEN GOTO 106 

105 IF INT (n (;■; , y y) ) =1 THEN GOTO 120 

106 yy=y+l:IF yy>9 THEN GOTO 108 

107 IF INT(n(x,yy))=1 THEN GOTO 130 

108 GOTO 100 

110 d=2 ; x =x +1:1F x = 10 THEN x=9:GOTO 200 
3 12 GOSUB .150 

114 yy=y-l:IF yy <0 THEN GOTO 116 

115 IF INT(n(x,yy))=1 THEN GOTO 120 

116 yy = y + l.;IF yy>9 THEN GOTO 118 

117 IF INT (n <;•: ,yy) ) =1 THEN GOTO 130 
1.18 GOTO 1.10 

120 d=3: y = y +l:IF y=10 THEN y =9:G0T0 200 
122 GOSUB 150 

124 xx=x—1 : IF xx<0 THEN GOTO 126 

125 IF INT(n <xx ,y))=1 THEN GOTO 110 

126 xx=x + l : IF xx>9 THEN GOTO 128 

127 IF INT(n(xx,y))=1 THEN GOTO 100 

128 GOTO 120 

130 d=4 : y = y-l : IF y=-l THEN y=OsGOTO 200 
132 GOSUB 1.50 

134 xx—x—1:IF xx<0 THEN GOTO 136 
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135 IF I NT ( n (x x , y) ) = 1 THEN GOTO 1 1 O 

136 xx=x+l:IF >9 THEN GOTO 13S 

137 IF INT(n(xx,y>>=1 THEN GOTO 100 

138 GOTO 130 

150 IF INTín <x ,y) )=1 THEN GOTO 250 
152 RETURN 

200 bÍ=M T DÍ (si () , y +1,1.) 

202 IF x =0 AND y=Ü AND d=l THEN bi="A" 

204 IF x =0 AND y=0 AND d=4 THEN bi="a" 

206 IF x-O AMD y=9 AND d=l THEN bi="j" 

208 IF x=0 AND y=9 AMD d=3 THEN bÍ="K" 

210 IF x =9 AND y=0 AND d=2 THEN bi="k" 

212 IF x=9 AND y=0 AND d=4 THEN bi="j" 

214 TF x =9 AND y-9 AND d=3 THEN bÍ="T" 

216 IF x=9 AMD y=9 AND d=2 THEN bi="fc" 

218 GOTO 400 

250 bÍ="ABS" ¡GOSUB 3000:LOCATE F'0+1 ,TT sPRINT eí : " *ABS" ¡LOCATE t , 1.8 ¡PRINT" ABSn 
RBJDO" 

252 FOR 1 = 1 TO 1000¡NEXT I ¡GOTO 1000 

400 G0S1.JB 3000 :LOCATE 1 ,18: PRI NT "SAI., I DA ; " ; Bi : LOCATE P0+1 , TT : PRI NT Ei ; " * " ■ Bi : 
FOR 1=0 TO IOOOüNEXT I:GOTO 1000 

500 LOCATE 2,1 ¡PRINT si (O) : LOCATE 2,12:PRTNT si (9) :FOR i = l TO 10:1.. OCATE 1,i. + l: 
PRINT CHR'i (96+i) :LOCATE 12 , i+1 üF'RINT CHRi(74+i) :NEXT i üRETIJRN 

1000 GOSUB 500 üGOSUB 1800:LOCATE 2,16 :F'RINT"D :DISPARO" :LOCATE 2,18 :PRINT"H :HTP 
OTESIS" 

1002 ei=INKEYÍ:IF ei="" THEN GOTO 1002 EL.SE IF ©i="D" OR ei="d" THEN GOTO 1100 
EL SE IF ei="H" OR ei="h" THEN GOTO 1500 El..SE GOTO 1002 
1.100 z=0:t=t + l: IF t.=41 THEN z = l ¡GOTO 9000 

1101 pu=pu-10 ¡LOCATE 22,25:PRINT pus" "üGOSUB 1.800 ¡LOCATE 1 ,16 ¡PRINT" ENTRAD 
A: " 

1102 eÍ=INKEYÍ¡IF ei="" THEN GOTO 1102 ELSE IF eÍ<"A" OR ei>"t" OR (eÍ>"T" AND 
ei<"a") THEN GOTO 1102 

1104 IF ASC(ei)>=65 AND ASC(ei)<=84 THEN GOTO 1110 El.SE IF ASC(eÍ)>=97 AND ASC 
(ei) < = 116 THEN GOTO 1110 ELSE GOTO 1.10.2 
1110 LOCATE 9,16 ¡PRINT Pi¬ 
li 12 IF eí="a" THEN x=0:y=0:G0T0 120 
1114 IF ei="j" THEN x=9: u =0:G0T0 120 
1116 IF ei="k" THEN x=9:y=0:G0T0 100 
1118 IF ei="t" THEN x=9:y=9:G0T0 100 
1120 IF eÍ="A" THEN >;=0 :y=0 ¡GOTO 1.10 
1122 IF ei="j" THEN x=0: y=9 ¡GOTO 11.0 
1124 IF eÍ="K" THEN x=0: y=9 ¡GOTO 1.30 
1126 IF ef="T" THEN x=9:y=9:G0T0 130 

1 127 FOR i =2 TO 9 :1F MIDi< si< O > , i , 1) =ei THEN x =0 : y = i -1. ¡ GOTO 110 

1130 IF MI Di (si (9) , i , 1) =ei THEN x =9 : y = .i -1 : GOTO 1.00 

1131 NEXT i 

1132 FOR i=1 TO 8:IF MIDi(si(i),1,1)=ei THEN x=á¡y=0:G0T0 120 
1134 IF MIDi(si(i),10,1)=ei THEN x=i:y=9¡GOTO 130 

1.136 NEXT i 

1.500 FOR i = 1 TO 1.0: LOCATE 12 , i + 1 ¡PRINT" "¡NEXT i ¡LOCATE 2,12:PRINT" 

¡GOSUB 1800 ¡LOCATE 1 ,1.6 ¡PRINT"FILA ¡ " 

1505 XÍ=INKEYÍ:IF Xi="" THEN GOTO 1505 ELSE IF ASC(XÍ)<97 OR ASC(XÍ)>106 THEN 
GOTO 1505 ELSE LOCATE 6,16 ¡PRINT Xi ¡ X=ASC(Xi)-97 

1506 LOCATE 1 ,18 ¡PRINT"COLUMNA¡" 

1507 eÍ=INKEYi: IF ei="" THEN GOTO 1507 EL.SE IF ASC(ei)<65 OR ASC(ei) >74 THEN G 
OTO 1507 ELSE LOCATE 9,18 ¡PRINT ei¡y=ASC(ei)-65 

1510 IF n(x , y)=1 .1 THEN GOSUB 1800¡LOCATE 1,23:PRTNT" VERDADERO, PERO YA ESTA 
BA ACERTADO" ¡FOR 1=0 TO 3000 ¡NEXT ]' ¡LOCATE í,23 ¡PRINT" 

"¡GOTO 1000 
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1512 T F n (x , y ) =0 THEN pu=pu-100 ;b*= " FALSO " sPAPER 1 ; l.OCATF y+2 , x +2 sPR T NT " ■' .RAP 
t R O 

1514 IF N ( X , Y) = 1 THEN PU=PU+50 :B*="VERDADERO" :AC=AC+1 :PFN 3:LOCATE 2+y ,2+x sPRI 
NT CHRí(255)¡PEN 1:n(x, y ) = 1 „ 1 

1516 GOSUB 1900;LOCATE i,16:PRT NT B$;LOCATE 22,25 : PR T NT PU 5 " 

1520 FOR i-O TO 3000:NEXT i :IF ac<7 THEN SOTO 1000 EL.SE! z=Ó:GOTO 9000 
1800 LOCATE 1,16 sF'RINT" LOCATE 1,18:PRINT" " :RETIJRN 

3000 IF T<=20 THEN P0=19 sTT=T+1 
3002 IF T>20 THEN PO-27:TT=T-19 
3004 RETIJRN 

9000 GOSUB 1800:FOR i=0 TO 9:FOR j=0 TO 9:IF nLi,j)=l THEN PEN 2:LOCATE j+2,i+ 
2sPRINT CHRÍ(255) 

9002 NEXT j , i sF'EN 1 

9004 I.OCATE 15 ,22 ;PRINT"FINAL IZASTE" :l OCATE 10,24 :PRINT"0 ;OTRO F sFINAL I ZAR" 
:IF Z-l THEN LOCATE 13 ,23sPRINT "Nü HAY MAS DISPAROS":PEN 1 

9006 Ei'-INKEYf: IF E$="" THEN GOTO 9006 EL.SE IF Et»"0" OR Eí="o" THEN RUN 30 EL. 
SE IF E#-="F" OR E¿'="-f" THEN GOTO 9100 EL.SE GOTO 9006 
9100 CLSsRUN" 

9900 DATA " ABCOFFGHU" , "b 1 ",V M","rl N" ,"e O" , "-f 

P" , "g O" , "h R" , " i S" "k 1 mnopqrst " 
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[ysssJé t'MÍÍi Ex'xLj fyy/y'i Vs/sá i V/yy/Á Vs/s/Á V///A 


Ega mzz vsm vzm mrn w&a tzm vzm vzzr vzm e 
v&m fz&a wm wm E%%g vzm E%%g vmi m?. 




MINIMOS 


10 BORDER 1:1NK 0,1:1NK 1,24:1NK 2,20:1NK 3,26;MODE 1 ;PAPER 0 : PEN 1 : 

20 RESTORE 1 0000 : READ X* .-LOCATE 16,1. ¡F’RINT X*:F0R 1=5 TO 13 :RFAD X* : LOCATE 1 , T 
:PRIIMT X*:NEXT I sREAB Xí: LOCATE 7,20:F'RINT X$ 

30 Xí=INKE Yí:IF X$=""THEN GOTO 30 ELSE CLS 

100 I NF'UT " NUMERO DE PUNTOS ;NP :NP=NP :DIM X (NP-l) sDIM Y<NP-1>:DTM Z(NP-l) 

104 CLS :F0R 1=0 TO NP-l : INPUt ,, X = " ;X (I) sLOCATE 20,1 : INPUT" Y=" ; Y (I) :CLS :NEXT I 

110 EX=0:F0R 1=0 TO NP-lsEX=EX + X < I) :NEXT I:EX=EX/NP 

112 EY=0 :F0R 1=0 TO NP-l :FY=EY + Y(I) :NEXT T :EY=EY/NP 

114 EXY=0 :FOR 1=0 TO NP-l ;EXY=EXY + X<1)*Y(I) :NEXT I:EXY=EXY/NP 

116 0X2=0:FOR 1=0 TO NP-l :DX2=DX2+(X(I)-EX)*(X(I)-EX) :NEXT I :DX2=DX2/NP 

118 DY2=0 :FOR 1=0 TO NP-l :DY2=DY2+ (Y < I) -EY) # (Y (I) -EY > :NEXT I :DY2=DY2/NP 

120 A= (EXY-EX*EY) /DX2 ;B=-EX*A+EY 

124 CRYX=A:CC=(EXY-EX#EY)/SQR(DX2#DY2) 

130 RCYX=0 :FOR T=0 TO NP-l :RCYX=RCYX+ (A¡KX (I) +B-EY) H¡ < A¡KX (I) +B-EY) :NEXT I sRCYX=R 
CYX/ (NPJKDY2) 

132 IF B>=0 THEN S*="+" ELSE S*="-" 

1000 CLS: LOCATE 1 ,1 :PRINT"E (X) = " ;EX : LOCATE 1 ,2 :F'RTNT"E (Y) = " ¡¡EY : LOCATE .l,3:PRI 
NT"E (XY) = " ;EX Y rLGCATE 1 ,4 : F’R INT " VAR ( X ) = " ;DX2:L0CATE 1 ,5 sPRINT" VAR < Y) =" ;DY2:L0C 
ATE 1 ,6:F'RINT"VAR(XY)=" ;EXY-EX#EY 

1010 LOCATE 1 ,8 sPRTNT *'RECTA DE REGRESION (Y SOBRE X) : 11 , : F'R INT" Y =";A;"X ";S#;S 
TRÍ(ABS(B)) 

1020 LOCATE 1 ,11 :PRINT"COEFICIENTE DE REGRESION: ",CRYX ¡LOCATE 1 ,14sPRINT'T 

OEFICIENTE DE CORRELACION,CC¡LOCATE 1 ,17 :PRINT"RAZON DE CORRELACION; 

RCYX 

1030 LOCATE 9,22 sPRINT "PULSA TECLA PARA GRAFICA" ¡LOCATE 1. ,24 ;PRINT"I..A GRAFICA 
PERMANECERA EN PANTALLA HASTA"¡LOCATE 8,25:PRINT"0UE PULSES DE NUEVO TECLA" 
1050 X$=INKEYf¡IF X*="" GOTO 1050 

1100 MIX=Q :FOR 1=0 TO NP-l :MIX=MIN(MIX,X(I)) :NEXT I 

1105 EOR 1=0 TO NP-l :Z(I)=X(I)-MIX:NEXT I 

1106 MAZ=0 :FOR 1=0 TO NP-l :MAZ=MAX (MAZ ,Z (I) ) :NEXT I :T).=MAZ 

1107 ESX = INT (630./MAZ) ¡FOR 1=0 TO NP-l : X (I) =Z (I) ¡KESX :NEXT I :0X= (O-MIX) *ESX 
1110 MIY=0 sFOR 1=0 TO NP-l:MIY=MIN(MI Y,Y(I)) :NEXT I 

1115 FOR 1=0 TO NP-l :Z(I)=Y(H-MIY:NEXT I 

1116 MAZ=0:FOR 1=0 TO NP-l;MAZ=MAX(MAZ,Z(I)):NEXT I 

1117 ESY=INT (390/MAZ) :FOR 1=0 TO NP-l : Y (I) =Z (I) #ESY ¡NEXT I :0Y= (O-MI Y) ¡KESY 
1500 CLS ¡F'LOT 0,0Y:DRAWR 639,0 :PLOT 0X,0:DRAWR 0,399 

1505 FOR 1=0 TO TI STEF' 0.2 ¡F’LOT I#ESX , (A#I+B)*ESY,1 ;NEXT I 
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1510 FOR 1=0 TO NF'—l sF'LOT X < I) , Y (I) ,3 :NEXT T 

2000 Xí— INKEY$:IF Xí="" GOTO 2000 

2010 CLS:LOCATE 12,20 :PRIIMT"0 :OTRO F:FIN" 

2020 XÍ=INKEYÍ:IF X$="" THEN GOTO 2020 EL.SE IF Xf="0" OR XÍ="o" THEN RUN EL.SE 
IF XÍ="F" OR X*="f" THEN GOTO 2030 EL.SE 2020 
2030 CLS:RUN" 

10000 DATA "AJUSTE"," Este programe te permite ajustar por el","método de los 
mínimos cuadrados una nube","de puntos por una recta." 

10002 DATA " Ademas de la representación gráfica, el ", "programa te da una seri 
e de datos de in-","teres estadístico."," Has de introducir primero el numero 
de" 

10004 DATA "puntos, y luego las coordenadas de es-" , "tos"PULSA TECLA PARA C 
OMENZAR" 
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MASTER MIND 


.1.0 REM PROGRAMA < <MASTER—MIND > > 

20 REM OOP Y R T GHT M.J.C. ?<F . A . P . , .1.985 

30 S Y MBOL AFTER O ; MODE O s INK O , O : I NK .1,1:1 NK 2,3*1 NK 3,9 : T NK 4,1,7 : T NK 5,20 :1NK 
6,15:1 NK 7,4:1 NK 8,19:1 NK 9,25:1 NK .10,16:1 NK 11 ,7 
40 JBORDER O; PAPER O :r=l :T$="M A 8 T E R" ;FOR T=1 TO I.FN (Tí) :l. OCATE 4+T ,11: PFN 

I NT (i”) : PRINT M T D* (T t -, T , 1 ) *r=r+0 - 5 sNEXT sR=R+0 „ 5 

50 Tí="M I N D" :FOR T=1 TO I..EN (TÍO : TOCATE 6+T,1.3:PEN INT <r) ;PRTNT MID$(T$ ,T , 1) 
;r=r+0,5:NEXT 

60 R=1;FOR 1=0 TO 2*PT 8TFP 0,4834 
70 X=INT(C05(Z)*225) :Y=INT(SIN(Z)* 175) 

72 ENV 1,50,2,2 

73 ENT l ,100,-2,2 

75 SOIJND 1. ,800-2: * 100,100,1,1,1 
80 FOR T—O TO 2*PI 8TEP 0.3 
90 PL..OT X +300 , Y+200 , R 

.1.00 X1 = : INT (COS (T) *20) : Y1 = INT(SIN(T) *20) 

110 ORAWR XI. , Y 1 , R 
120 NEXT 
1.30 R-R+ :1 
140 NEXT 

150 ENV 1 ,100,1,3: ENT 1 ,100 ,-5,3:801 IND 1 ,600 ,300,1,1,1 

160 FOR 7 = 1 TO 13 íBORDER 2 :FOR t=l TO 210:NEXT t,z 

170 MODE 1 sINK 0,1 :INK 1 ,24:INK 2,1.1:TNK 3,6;B0RDER 1 ;PAPER O 

180 PEN 3: LOCATE 9,1 :PRINT"M ASTER-MIN P" sPEN 1 si. OCATE 1 ,5 sPRINT" El 

juego consiste en averiguar un codi go de -figuras que yo mantengo en ser 

reto." :PRTNT :PRINT" Como pista te indicare con el. simbele" 

190 PRINT"+ cuando aciertes la figura y ademas la. posición y con el símbolo - 
si aciertas la figura pero no la posición," : LOCATE 2,22: PR INT" PARA COMENZAR El... 

JUEGO PULSA IJNA TECLA" 

200 1F INKEYí-"" THEN 200 EL SE CI..S 
210 DEFINT A-Z 

220 LOCATE 1,8:PRINT "ELIGE EL NUMERO DE FICHAS QUE FORMARAN EL CODIGO (3, 4 
o 5 FICHAS)" ' 

222 NFí-INKEYf:IF NFÍ="" THEN 222 

225 NF=VAL(NF$)sIF NF<3 GR NF>5 THEN 222 

230 LOCATE 1,12:F'RINT "PERMITES QUE LAS FIGURAS SE REPITAN EN EL CODIGO (S/N) 

II 

232 RC$ = INKE Y $ : IF RC#=" " THEN 232 EL SE RCf=UPF'ERi (RCí) 

235 IF RCÍO"S" AND RCÍO"N" THEN 232 
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240 TF rC$="S" THEM rC$="C0N" ELSE rC$="SIN" 

250 CLS; LOCATE 9,1 :PEN 3:PRINT"M ASTER - MIN D" sF'EN 2 

260 1 í—CHR$ (143) sPOR = 1 TO 40 >LOCATE x ,2 sF'RINT 1 $ :LOCATE x ,4 :F'RINT 1 * :I 

x,24 SPRINT 1 *sNEXTsF 0R y =2 TO 24sLOCATE 1,ysPRINT lísLOCATE 40,ysPRINT 


270 

7 O ■ 
280 
290 
300 


POR y—5 TO 24:LOCATE 34,ysPRINT 1 $¡LOCATE 
F'R I NT nf ; "FICHAS" ;TAB (25) ¡reí;" REPETICION" :PEN 
FOR Z=1 TO 8 sREAD CsC$(Z)=CHR$(C) sNEXT 


18,YsPRINT 


[.í sNEXT sF'EN 3 si 


DATA 249 
C=1sFOR Y-7 


5 ? 


J r ?“7 r 

TO 21 


128,229,230,232 
STEF' 2: LOCATE 


,207 

36, Y sF'EN 3 sPRINT Cf (Os sF'EN 1 sPRINT 


1sNEXT 


310 FOR Z=1 TO NF 
320 C(Z)=RND#7+1 

330 IF RCí="CON" OR Z=1 THEN 370 

340 FOR X—1 TO Z-l 

350 IF C(Z)=C(X) THEN 320 

360 NEXT 

370 NEXT 

380 .7=1 

390 F'EN 1 s LOCATE 5,25 sPRINT "INTRODUCE LA JUGADA N.";J 
400 J*=""sFOR Z=1 TO NF 

410 F'í = I NKEYí : IF F'í="" THEN 4.10 ELSE P=VAL. (F'$) 

420 IF P< 1 OR P>8 THEN 410 EL.SE F'RINT CHR*(7>; 

425 D(Z)=P 

430 IF J<18 THEN XC=2+ZsYC=5+J ELSE XC=19+ZsYC=5+J-17 

440 RESTORE sFOR T=1 TO F'sREAD C sNEXT sF'EN 3sL0CATE XC,YCsPRINT CHRf(C); 
445 NEXT 

450 LOCATE l,25sF'RINT STRINGí (39,32) 

460 LOCATE 5,25 sF'EN 1 sPRINT" EVALUANDO TU JUGADA" sFOR T=1 TO 500 sNEXT 
470 NG=0sBL=0 
480 FOR Z=1 TO NF 

490 IF C(Z)=D(Z) THEN NG(Z)=1sNG=NG+1 ELSE NG(Z)=0 
500 NEXT 

510 FOR Z=1 TO NF sIF NG(Z)=1 THEN 550 
520 FOR ZZ=1 TO NF sIF ZZ = Z THEN 540 
530 IF C(Z)=D(ZZ> THEN BL=BL+1 
540 NEXT 
550 NEXT 

560 LOCATE l,25sPRINT STRINGÍ(39,32) 

570 IF NG=0 THEN 620 
580 FOR Z=1 TO NG 

590 IF J<18 THEN XC=9+Z ELSE XC=26+Z 
600 F'EN 1 sLOCATE XC,YCsF'RINT " + " 

610 NEXT 

620 IF BL=0 THEN 665 

630 FOR Z=NG+1 TO NG+BL 

640 IF J<18 THEN XC=9+Z ELSE XC=26+Z 

650 F'EN 1 sLOCATE XC,YCsPRINT 

660 NEXT 

665 IF NG=NF THEN 800 
670 IF J=34 THEN 900 
680 J=J+1sGOTO 390 
800 REM ACIERTO 

810 LOCATE 1,25 SPRINT STRINGí(39,32) 

820 INK 2,26,1 sF'EN 1 sLOCATE 5 ,25 s F'R I NT “ACERTASTE MI CODIGO 1 “ 

830 ENV 1,100,2,1 s ENT 1,1 00 , -2 ,2 s SOUND 1,284,200,1,1,1. 

835 IF SQ(1)<>4 THEN 835 

840 INK 2,11 sLOCATE 1 ,25 sF'RINT STRING£ (39,32) sGOTO 1000 
900 REM FALLO 


...OCATE 
If sNEXT 
...OCATE 


C sC=C+ 
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910 LOCATE 1,25:PRINT STRINGí(39,32) 

920 INK 2,6,0: PEN 1 s LOCATE 5,25: F'R I NT " SOBREPASASTE I. AS .JUGADAS'" 

930 ENV 1 ,100,1,3:ENT 1 ,100 ,5,3:SOUND 1 ,284 ,300,1,1,1 
935 IF SQ (1)04 THEN 935 

940 INK 2,11 :LOCATE 1 ,25 SPRINT STRIN6$(39,32);LOCATE 5,25:PRTNT"MI CODIGO ERA 
" ; sFOR Z-l TO NF :F’RINT C$ (C(Z)) ; :NEXT :FOR T=1 TO 5000 :NEXT sPRINT" " ; 

1000 REM OTRA PARTIDA 

1010 INK 1 ,24,26 SPRINT"OTRA PARTIDA (S/N)" 

1020 U?=INKEY$:IF L*="" THEN 1020 

1030 L$=UPPERÍ (Lí) :IF L$0"S" AND L.$<>"N" THEN 1020 
1040 IF LÍ="S" THEN RUN 170 
1050 CLS 

1060 PRINT "PREPARADO PARA EL. SIGUIENTE PROGRAMA" 

1070 RUN"" 

1080 STOP 
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SOPA DE LETRAS 


10 REM PROGRAMA <<TORTIL 
20 RFM 


A DE LETRASV> 


COPYRIGHT & F.A.F’, 


1985 


30 MODE O : BORDEE’ O s INK O ,0:1 NK 1,2:1 NK 2,3 :1NK 3,8:1 NK 4,5:1 NK 5,6:1 NK 6,9:1 NK 
7,10:1NK 8,12:1NK 9,13:INK 10,15:INK 11,16:INK 12,18:INK 13,21:INK 14,24:INK 
15,26;PAPER O 

40 T$= " TORTI L.L ADELETRAS " : RANDOMI ZE 5000 

50 T—l.EN (T$) :DIM C$(T) ,P(T,2) ,R(T,2) ,C(T) ; RESTORE 110;F0R 7 = 1 TO T;READ C(Z) :C 
í(Z)=MIDS(Tí ,Z ,1) :NEXT 

60 RESTORE 100:FOR Z=1 Tü T ;P (Z , 1) =INT <RND* 18+2 .5) :F’(Z ,2) = INT (RND*23+2 „51 ;READ 
R (Z , 1) , R (Z , 2 > : PEN C, (Z): I.. OCATE P (Z , 1) , P (Z ,2) : SOUND 1 ,1 00#z ,20 ¡PRINT C$(Z):NEXT 
70 FOR s=l TO 500:NEXT 

80 FOR Z = 1 TO T:DX=R < Z,11-P(Z,1> :DY=R(Z ,2)-P(Z ,2) :SX=S6N(DX) :5Y=SGN <DY) :LOCATE 
P (Z , 1) , P ( Z , 2) : F'R I NT " " ; :FOR X=P í Z , 1 ) TQR(7,1) STEF’ SX;F’RINT CHRí <71 ; :NEXT 
90 FOR Y=P (Z ,2) TO R(Z,2) STEP DY ¡F'RINT CHR*<7) ; ; IMEXT: PEN C (Z) ¡LOCATE R<Z,1>,R 
(Z,2) SPRINT C*(Z) ; :NEXT 

100 DATA 3,8,5,8,7,8,9,8,11 ,8,13,8,15,8,17,8,9,12,11,12,5,1.6,7,16,9,16,1 1,16,1 
3,16,15,16 

110 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,4,5,6,7,8 
120 FOR T=1 TO 3000:NEXT 
130 GOSUB 6050 


1.40 LOCATE 12,2 : F'RINT "TORT ILLA DE LETRAS" ¡LOCATE 1,5 ¡PEN 1 SPRINT" 


El juego co 
la pinlo en 


nsiste en que yo busco en mi memoria una palabra en castellano y 
la pantalla, pero con las letras colocadas en cualquier orden." 

150 PRINT¡PRINT" A partir de ese momento eres tu quien tiene que adivinar cus 
1 es el orden en el que deben ir las letras para poder reconstruir la palab 
ra completa." 

160 PRINT sF'RINT" Tienes siempre el doble de oportunida-des que de letras para 
conseguir!o." 
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170 LOCATE 14 ,22 sF'EN 3sPRINT"MUCHA SUERTE" : LOCATE 1,25:PEN 1 5 PRI NT "PARA COMEN 7 
AR EL JUEGO PULSA UNA TECLA" 

ISO TF INKEYÍ-"" THEN 180 ELSE PT=0 

190 RANDOMIZE TIME sCLS : LOCATE 7,5 ;PRINT" El... I GE UNO DE ESTOS TEMAS : " ¡LOCATE 1.0,8 
SPRINT"!.- TRABAJOS":LOCATE 10,1 O sPRINT"2ANIMALES":LOCATE 1 O , 12 SPRINT"3 . - P 
AISES"s LOCATE 10,14 sPRINT"4.- DEPORTES" 

200 LÍ=INKEYÍsIF L$="" THEN 200 ELSE I ~ASC <1. i) s IF L<49 OR L >52 THEN 200 
210 IF L-49 THEN RESTORE 1000 ELSE IF L=50 THEN RESTORE 2000 ELSE IF I..-51 THEN 
RESTORE 3000 ELSE RESTORE 4000 
220 p=INT(RND*20)+l 
230 POR 7.-1 TO psREAD pisNEXT 
240 p=LEN <pi) 

250 MODE O s BORDER O s INK O ,0:1 NK 1. ,2:1 NK 2 ,3 :1NK 3,8 s T NK 4,5:1 NK 5,6:1 NK 6,9:TN 
K 7,10:1 NK 8,12:INK 9,13:INK 10,15:INK 1.1 ,16:INK 1?,1RsINK 13,21. :INK !.4,24:INK 
15,26sPAPER OsPEN 14 

260 DIM ai (p) ,p<a(p) :FOR z = l TO p sai <z ) =MIDi (pi ,z , 1) sPRINT CHR$<7> sNEXT 
270 FOR z=l TO p 

280 pl = INT(RND#p)+l :FOR TO 7 s IF pl=p<s(x> THEN X=P#3-1 

290 NEXTsIF x=3*p THEN 280 
295 PS (Z) =F'I.. 

300 NEXT 

310 RESTORE llOsFOR x = l TO psREAD c: :F'EN c : XX=X+10-P/2 sLOCATE XX ,4:PRINT Ai(p=>< 
x ) ) sLOCATE XX ,8 sF : ‘RINT sNEXT 

320 IN-0 : GOSUB 6000sGOSÜB 6010 
325 FOR Z=1 TO P 

330 LOCATE 3 ,20sPRINT"INTRODUCE LETRAS" 

340 Li=INKEYÍ:IF L.i="" THEN 340 

350 LÍ=UPPERi(L..Í) :IF ASC (Li> <65 OR ASCO, i) >90 THEN 340 

360 IN=IN+J : GOSUB 6010:IF IN=P#2 THEN L.OCATF 3,20 sPRINT STRINGi (16 ,32) 

370 IF |..i=Ai(Z> THEN SOUND 1 ,200,50 sLOCATE 7+1 O-P/2,8 :PEN Z sPRINT AÍ<Z):PT=PT+ 

.1 O s GOSUB 601 O ELSE SOUND 1 ,1 000,1 00 : F-1 

380 IF IN-PK2 AND F=1 THEN Z=P*3~1sGOTO 400 

390 IF F=1 THEN F=0sGOTO 340 

400 NEXT 

410 IF Z=F'*3 THEN 500 

415 l. OCATE 3,20 sPRINT STRINGi (16,32) 

420 REM ACIERTO 

430 LOCATE 3,20:PRINT"MAS PALABRAS? (S/N)" 

440 R$=INKEYí : IF Ri="" THEN 440 ELSE RÍ=UPPERÍ(Ri) 

450 IF R$="S" THEN GOSUB 6050:ERASE Ai,PSsGOTO 190 

460 IF Ri<>"N" THEN 440 ELSE GOSUB 6050 

470 PRINT"PREPARADO PARA EL. SIGUIENTE PROGRAMA:" 

480 RIJN" " 

490 STOP 

500 LOCATE 3,12 sPRINT"LA PALABRA ERAs"sLOCATE 1O-P/2,15sPRINT Pi 
520 GOTO 430 

1000 DATA BOMBERO,POL.TCIA,POLITICO,ABOGADO,LABRADOR ,OBRERO,GANADERO,PROFESOR,M 
AESTRO , MED ICO , I NSF'ECTGR , OETER INARIO , FARMACEUTICO , COCI ÑERO , ASCENSOR ISTA , PROGRAM 
ADOR ,PILOTO,CAMARERO,BIOLOGO,VENDEDOR,ARQUITECTO,APAREJADOR,CARPINTERO,FONTANE 
RO,PELUQUERO,PINTOR 

1010 DATA ASTRONOMO,DIRECTOR,MUSICO,MARINERO 

2000 DATA LEON ,TIGRE ,PERRO ,CABALLO ,PANTERA , JAGUAR ,BISONTE ,PALOMA ,TIBURON ,BALI..E 
NA , CACHALOTE , ESCARABAJO , SERPI ENTE , COCODRI L.O , ESCORP ION, GACELA , CORDERO , CIERVO , TR 
UCHA , CAÑAR IO , CACATUA , ELEFANTE , HORMIGA , DEL.F IN 
2010 DATA LECHUZA ,CANGURO ,ORANGUTAN,GORILA,TORTUGA,UROGALLO 

3000 DATA FRANCIA ,BELGICA,ITALIA,RUSIA,FINLANDIA,EGIPTO,MARRUECOS,ARGELIA,ARGE 
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NTINA ,NICARAGUA,ECUADOR ,NIGERIA ,PAKISTAN , AUSTRALIA ,CANADA ,NORUEGA ,L.UXEMBURGO ,P 

OLONIA , CHECOSLOVAQUIA,ALEMAN IA,YUGOSLAVIA,GRECIA,FILIPIÑAS 

3010 DATA MOZAMBIQUE,PORTUGAL,SUECIA, URUGUAY , MEJICO,VIETNAM , MAURITANIA 

4000 DATA FUTBOL,BALONCESTO,BOLEIBOL,ATIETISMO , GIMNASIA , ALPINISMO,AUTOMOVILISM 

O , MOTOCICLI SMO , CICLI SMO , NATACION , F'AT I NAJE , TEN IS , PARATE , SUBMAR INI SMO , BALONMANO 

4010 DATA HALTEROFILIA,BEISBOL. ,RUGBY,WATERROLO,FRONTON,MOTOCROSS,CICLOCROSS,MA 

RATON,ESPELEOLOGIA,BADMINTON,ESGRIMA,EQUITACION,HIPICA,BILLAR,GOLF 


6000 F'EN 14 :LOCATE 3 ,24 :PRINT"PUNTOS 
6010 LOCATE 2,25:PRINT USING "####"; 
6050 MODE 1 sBORDER J:INK 0,3sINK 1,2 


s" ; TAB(12) ; " INTENTOS : ":RETURN 

PT «LOCATE i 5,25 zF'RINT USING”##" ; IN :RETURN 

4 ; INK 2 ,8 :1NK 3,6,26: F'EN 2: RETURN 
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NAUFRAGO 


10 REM NAUFRAGO 

20 REM COPYRIGHT M..J.C. y F.A.P. TRADUCIDO POR CRIS . 1.985 

30 BURDER 11sINK 0,11 sINK 1 ,1«INK 3,26 sINK 2,6sGOSUB 320 

40 MODE O: PAPER O: PEN 3: LOCATE 3,12 ¡PRINT "N A l.l F R A G O" sGOSUB 420:PEN 1 ;M0 
DE 1 

50 LOCATE 2,4sPRINT " Eres un desgraciado naufrago casi"sPRINT "muerto de hamh 
re."sPRINT 

60 PRINT "Un avión te ha visto y t.e manda algunas provisiones hasta que puedan 


rescatarte." 

70 PRINT "El viento mueve el naracaidas con el peligro de que se hunda." 

SO PRINT :PRINI " Mueve ]a barca con las teclas " ;CHR$(242) ; " y ";CHR±(243) ; "p 
ara recoger con ella el paracaídas antes de que toque el mar." 

90 PRINT sPRINT " Termina el rescate pulsando S" 

100 PRINT :F'EN 2 sPRINT " PULSA UNA TECLA PARA COMENZAR" 

110 i í-1NKE Y$ s IF i$=" " THEN 110 EL.SE MODE 0 

120 BORDER 0;PAPER 1sFOR y=20 TG 24:POR x = l TO 20«LOCATE x ,ysPRINT " "sNEXTsNE 
XT 

130 PAPER 0:xb=3:yb=19:d=0:r=0 

140 PEN 2 «LOCATE xb ,yb sPRINT " ";CHR$(145)CHRt<146);" " sREM entrada 
150 xp=CINT<RND(1)* í 6+1 I. ) s yp= 1 
160 d=d+lsGOSUB 300 
170 li=INKEYÍ 

180 IF lí-CHRf- (242) THEN xb=xb-(l AND xb>l) 

190 IF lf=CHRÍ(243) THEN xb=xb+(l AND xb<17) 

200 IF 1Í="S" OR lí="s" THEN GOTO 400 

210 LOCATE xb , yb sPRINT " " ;CHR$(145)CHRÍ(146) ;" " 

220 yp = yp+( 1 AND yp \ .18) 

230 xp=xp +SGN(RND <1>-0.5)*(1 AND xp>2 AND xp<15) 

240 PEN 3sLOCATE xp,ypsPRINT " "sLOCATE xp, u p + lsPRINT " " ;0HR*(141)CHRÍ<143 

) 5 " " : LOCATE xp ,yp+2 sPRINT " " ; OHRí (142) CHR-t (144) s PEN 2 

250 IF yp=yb—2 AND (xp=xb —1 OR xp=xb OR xp=xb + l) THEN r=r+l sPRINT CHR$ (7) ; sGOSLI 
B 280sGOTO 140 

260 IF yp = yb—2 THEN BORDER 11, 6 sGOSUB 280sBORDER O«GOTO 140 
270 GOTO 170 


280 LOCATE xp + 1 , yp+1 sF'APER O sPRINT " "«LOCATE 
290 PAPER OsRETURN 

300 LOCATE 1 ,25 sPAPER 1 sF'EN 3 sPRINT CHR*(1B);" 


xp+1, u p+2SPRINT " " 

NUM." ;d ; "EXITOS" ;r sF'APER 


O s PEN 
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310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

ma " 

410 

420 


RETLJRN 

SYMBOL. AFTER 140 

SYMBOL 141 ,3,15,29,62,126,125,127,36 

SYMBOL 142,20,12,2,1 ,3,1 ,1 ,3 

S Y MBOL 143,192,240,184,124,126,190,254,36 

SYMBOL 144,40,48,64,128,192,128,128,192 

SYMBOL 145,24,20,24,24,255,67,63,31 

S Y MBOL 146,120,112,120,65,255,254,242,248 

RETURN 

MOBE 1sBORDER 11sPAPER OsPEN 1:LOCATE 6,9 SPRINT"Preparado para otro progra 
F'RINT ¡F'RINT :RL)N" 

FOR retardo= 1 TO 999 :NEXT :RETLJRN 
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LADRILLOS 


jo rem i adr i i .1 os 

20 RFM COPYRIGHT M.J.C. F.A.P, TRADUCIDO POR CRIS, 1.985 

30 INK 0,1 sINK 1 ,26:1NK 2,6:1NK 3,2,8:PAPER O 

50 MODE O sBORDFR 1 : LOCATE 1,12: PEN 3sPRINT"LLOVIA DE LADRILLOS" ; POR t: — 10 TO 50 
O STEP 1 O : SOUND .1 , t , 3 O : NE X T ; GOSUB 580 

60 MODE 1 ;PEN 1 sPRINT :PRINT sPRINT" La ciudad se esta desplomando, y tu 

vida corre grave peligro. 

70 PRINT sPRINT" Debes ir usando los ladrillos que esten caídos para :i.r al 

un i co re-fu g i o seguro" 

80 PRINTsPRINT"Tienes cinco vidas para conseguirlo. ":PRINT 

85 PRINT: PRINT " Izquierda ";CHR$<242) $TAB<30) ; " Derecha " ;CHR* (243) sPRINT ;PRIN 
T" Salto hacia arriba o abajo con COPY":PRTNT 

87 LOCATE 1,20:PRINT"PARA COMENZAR EL JUEGO PULSA UNA TECLA" 

88 TF INKEYí="" THEN 88 ELSE CLS 

80 LOCATE 1. , 12 : INPUT"el ige el grado de di-f irruí tad , desde 

.1 di-f ic i 1 a 3 f ac i 1 " ;d i-f i 

85 IF di-f id OR di-f i >3 OR di-f iOINTÍdi-f i) THEN CLS: GOTO 90 
1.00 k=7:h=6:b=20 
1 1 o GOSIJB 550 

120 DIM x (30) :md*=CHR*(250) :mi.*=CHRí (251) ;ms*=0HR*- (2491 : i*=0HR*(242) üd*=CHR*<2 
43) 

130 CLS sv=0 ;vidas=5 :pun=0 ;m=1.7+k :n-b ; l*=CHR* (144) 

140 PEN 2 :F'OR x = l TO k ;F0R y=h TO 23:LOCATE x ,y sPRINT 1* :NFXT :NEXT 

150 FOR y = l TO 23:FOR 7=0 TO 2:LOCATE 37+7. ,ysPRINT l* :NEXT sNEXT 

160 FOR x = l to 39:LOCATE x ,1sPRINT lüsFOR y=b+l TO 24:LOCATE x,y:PRINT 1*sNEXT 

sNEXT 

170 PAPER 1. :F'EN 3 :vi*="VIDAS" :F0R y=l TO 5: LOCATE 38, y+2 sPRINT MID* (v i * , y , 1 ) ;N 
EXT 

175 RF*=STRING*<7,143) sFOR Y=2 TO 5:LOCATE 1,Y:PEN 3 sPRINT RF* ;( OCATF 1 ,Y:PRTM 
T"REFUGIO"sNEXT 

180 FOR y—1O TO 18 STEP 2:L0CATE 38,y:PRINT CHRí(250):NFXT 
190 PAPER O 

200 FOR x = 1 TO 30 :x(x)=b+lsNEXT 
205 RANDOMIZE TIMF 

210 PEN 2:s=INT(RND(l)*38+1.5);IF s>29 THEN s=s-29 

220 FOR y=3 TO x <s)—1 :PEN 2:LOCATE s+k , y-1sPRINT " " :LOCATE s+k ,ysPRINT lt 
230 PEN 1 :LOCATE m,n:IF sa=0 THEN PRINT md* ELSE PRINT mi* 

240 IF m=s+k AND y=n THEN 390:REM choque 
250 r*=INKEYí 
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260 IF r*=i* THEN LOCATE m ,n sF'EN 1. sF'RINT mi$ssa=l 

270 IF rí=ií AND m>k + l AND n=x(m-k-l)-l THEN 280 ELSE 290 

280 m=m—1 ;LOCATE m ,n sF'RINT mi*; sF'EN O sF'RINT " "s 

290 IF rí-d* THEN LOCATE m,n sF'EN 1 sF'RINT mdfssa=0 

300 IF rí=dí AND m<36 AND n=x (m-k + D-l THEN 3t0 EL SE 330 

310 m-m+1 sF'EN Os LOCATE m-1 ,n sF'RINT " " ; sF'EN 1 sF'RINT mdí 

320 REM salto 

330 IF r*=CHR*(224) AND m<37 AND m>k THEN IF sa=0 THEN 340 ELSE 360 EL SE 370 
340 IF n-x (m-k + 1) <d i-f i AND m<36 THEN LOCATE m,n:PEN O sPRINT " '' sn=x <m-k + l)-l sm 
=mH-í. sLOCATF m,n:PEN lsPRINT md* 

350 GOTO 370 

360 IF n-x(m-k-1) <d i -f i THEN LOCATE m,n:PEN OsPRINT " "sn=x(m-k-l)-l sLOCA 

TE m,n sF'EN 1 sPRINT md* 

370 IF r*=CHRÍ(224) AND m=k + l AND n-h<'diTi THEN 44o 

380 NEXT sSOUND 1,100,5:x(s)=xCs)-(1 AND x(s)>5) spun=pun+lOsGOSÜB 520¡GOTO 210 
390 SOUND 1,1000,100 8 LOCATE 38,10+v s v i das=v i das-1. 

400 F'EN 2 sPRINT lt:v=v+2 
410 n=n-<1 AND n>h> 

420 x (s) =x (s) -1 :LOCATE s+k ,x <s) sF'EN 2 sPRINT ISsGOSUB 580 

425 ld$=STRING$<30,lí) sFOR y=n + l TO 23sL.0CATE k + 1 ,y sPRINT 1 d* sNEXT sFOR y = l TO 
30sIF x(y)>n THEN x<y)=n +1 
427 NEXT 

430 IF vidas=0 THEN 470 EL..SE 210 
440 REM éxito 

450 LOCATE m,n sF'EN O sF'RINT " "sF'EN 1 s LOCATE k ,h-l sF'RINT mi*; 

460 LOCATE 2,1 SPRINT"ENHORABUENA 111 TE HAS SALVADO" 

470 LOCATE 2,2 sF'RINT " Otra partida P, Terminar T " 

480 re*=INKEY*sIF re$="" THEN 480 
490 IF re*="T" OR re*="t" THEN 530 
500 IF re*="p" OR re*="F'" THEN 130 
510 GOTO 480 

520 F'EN 1 s LOCATE 2,25 sPRINT "PUNTOS s " jpun jTAB (16) ; "Capacidad de salto " jdi-fisR 
ETLJRN 

530 CI.-S s LOCATE 2,10 sF'RINT "PREPARADO PARA OTRO PROGRAMA" 

540 F'R'INT sRUN" " 

550 SYMBOL AFTER 143 

560 SYMBOL 144,0,251,251,251,0,223,223,223 
570 RETURN 

580 FOR retardo==0 TO 999 sNEXT sRETURN 
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PARAM ETRICAS 


JO INK 0 , .1. : INK' 1 ,24:1 NK 2,26: INK' 3,6 sBORRER 1 ¡PAPER OsPEN 1 

20 MORF í üRFSTORF 1000:F0R 1 = 1 TO 15:READ KÍ¡LOCATE 1, i:F'RINT *S:NEXT isREAR x 
í : L OCATE 1 ,24 s F'R I NT x * 

30 x$=INKHY$:IF xf="" GOTO 30 
40 KEY 1 39, "ruri 500 "+CHRí<13) 

50 10=0 : t; 1 =4 .71 ; ex = 1 80 :ey= 180 ; pa=0,02 
90 DEF FN x <t>=SIN(t*t) :DEF FN yít>=SIN<t) 

100 MORE .1. :ORTGTN 250,200,0,500 ,0,400 

1.10 PLOT -250,0,1 :DRAW 500,0 

130 PLOT O ,-199,1:RRAW O,400 

140 WIN DOW #1 ,34,40,1 ,25: PAPER #1,3:CL.S #1 

200 FOR t. =tO TO ti. STEP pa:x=ex*FN x (t> ;y=ey*FN y <t> sPl.OT x ,y,2:NEXT t 

300 LOCATE 1 ,1 sPRINTttl , " ESCALASE X " ,EX ,"EY" ,EY , "PAGO" ,PA,"TO" ,TO,"TJ " ,Tj. ,,,,,,, 


310 PRINT#1 , "1-C.ESC" ¡¡"2-C.PAS" ; "3-C .VAL." ;"4-C.EUN" ;"5-STQP" 

320 X*=INKEY* s IF X*="" GOTO 320 El SE IF X¿="1" GOTO 400 El. SE IF X*="2" GOTO 41 
O EI..SE IF Xi="3" GOTO 420 EL SE IF Xí="4" GOTO 430 El..SE IF X$="5” GOTO 440 EL.SE 
GOTO 320 


400 CLS:INPUT"ESCALA X:";EX:INPUT"ESCALA Y:";EY:GOTO 100 

41 O CLS:INPUT"PASO:";PA:GOTO 100 

420 CLS : INPUT"TO:";TO ; INPUT"TI:";T1:GOTO 100 

430 CLS: EDIT 90 

440 CLSsRUN" 

500 CLS : I NF'UT " ESCALA X : " ;ex : INPUT "ESCALA Y : " ;ey : INPIJT"PASO : " ;pa : INPUT"TO : " ;tO : 
INPUT"TI" ; 11:GOTO 90 

1.000 DATA " F'ARAMETRICAS" ," Este programa te permite representar 

","curvas a partir de sus ecuaciones","parametri cas . " 

1002 DATA " Como ejemplo el programa comienza","representando la curva de ecua 
c i ones : " , " x < t) =s i n (t) , y (t) =s i n (t) Icos (t.) " 

1004 DATA " Para cambiar la -función has de pulsar 4","con lo que te aparecerá 
editada la linea","90, corrígela, pulsa ENTER y a continua-" ,"r.ion pulsa enter 
numérica, con lo que el" 

1006 DATA "programa, te pedirá las escalas, el paso","y los valores inicial y f 
inal, estos los","puedes cambiar pulsando 1,2o 3." 

1010 DATA " PULSA TECLA PARA COMENZAR" 
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V////Á Pft&ad tyyyy-i K&fl fy’y':’i ly/y/A VyyyyA tyyyy'¿ VyyyyA 


tima e %%3 vzm e %%3 tzm vzm vzm e % 

Tzm wm vzm wm wm E%%g wm 


ESTADISTICA 


10 REM COPYRIBTH M..J.C. Y F.A.P. TRADUCIDO POR CRIS., 1985 

20 SYMBOL. AFTER 32: BQRDER 1:INK 0,1 :INK 1 ,24; INK 2,6:1 NK 3,26 

25 MODE 0sPAPER 0:PEN 3:SPEED INK 50 ,50 : L OCATE 5,12:PRINT "ESTADTSTICA":G0SUB 
900 


30 PEN 1 :M0DE 1 ;PRINT 

40 PRINT " Este programa real iza un histograma de -frecuencias absolutas y un p 
ol i gano de -frecuencias acumuladas a partir de los datos que le introduzcas, 
no se pueden introducir mas de 7700 datos." 

50 a~0 :m=0sh=0:v-0:PRINT:PRINT 

60 INF'UT "NOMBRE DE LA VARIABI..E EN ESTUDIO ";NVÍ 

70 INF'IJT "Numero de datos" ;h:IF h>7700 THEN 70 
80 OIM x(h) 

90 F0R z=l T0 h 

100 LOCATE 2,10:PRINT CHR*(20) ;"Dato Numero" ;z 


110 INFTJT x < 2 > 

120 IF ’ z = 1 THEN mx =x (.1) s mn=mx 

130 IF x (7 .) >mx THEN mx=x(z) EL SE IF x (zXmn THEN mn=x (z) 
140 a=a+x( z ) 


150 NEXT 

160 m=a/h 

170 FOR z = 1 TO h 

180 v=v+ (ABS(x <z)-mi) A 2/(b-1) 


190 NEXT 

200 s=SQR(v) :PRINT CHR* (71 :CLS üF'RINT 

210 PRINT"VARI ABL..E ; " ;NVÍ :PRINT :PRINT 

220 PRINT "Num. de Datos " ;h :F'RINT"Suma Total. 


;a :PRINT"MEDTA=";m;PRINT"VARIANZ 


A-" ;v 

230'PRINT " DESV IACION TIPICA=" ;s 

240 cv=s/m:PRINT "COEF. VARIACION*";cvSPRINT 

250 t=mx-mn:PRINT"MINIMO=";mnsPRINT"MAXIMO*"¡mx;PRINT"RANGO*";t 

260 PRINT CHR$<7);PRINT 

270 REM DIVISION EN CLASES 

280 INF'UT "Numero de CLASES (máximo 25) " ;c 

290 IE c >25 OR c<l OR cOINT(c) THEN 280 

300 INF’UT "Limite interior clase 1" ; 1 

310 INF'UT "Amplitud del intervalo" ;b 

320 DIM y(c),k(c) 

330 FOR z=l TO h 
340 FOR j=l TO c 
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350 IF x(z)>=.l +(j-1)*b THEN IF x(z)<l+j#b THEN 380 
360 NEXT 
370 GOTO 390 

380 y (j ) — y (j)+i :k (j)=k (j)+x Cz) 

390 NEXT 7 . 

400 MC=0:F0R J=1 TO CsIF YíJ)>MC THEN MC=Y(J) 

430 NEXT 
420 CLS 
430 DIM tic) 

440 F’RINT TAB (5) ;"Datos por CLASES" :PRINT 

450 F'RINT " CLASE" ;TAB (11) ; "N - DATOS" ¡TAB(22) ■ "SUMA" ;TAB(31) ; "MEDIA" 

460 FOR j=l TO c 

470 IF y(j)=0 THEN t (j >-O:GOTO 490 
480 t(j j-k(j)/y (j) 

490 F'RINT US TNG "####" ; : F'RINT TAB (12) ; US TNG "####" ¡¡y (j ) ¡ ¡F'RINT TAB (3.8) ;USING"# 
####„##"-k(j) .sRRTNT TAB(29) ¡USING"#### .##";t(j> 

500 NEXT 

510 F'EN 3 :PRINT sPRINT sPRINT "Pulsa. una tec la para cont inuar" sF'EN 3. 

520 i '$■= INKEYÍ s IF i$=" " THEN 520 EL SE CLS 
530 REM HISTOGRAMA DE FRECUENCIAS 
540 INF'UT "Num. de individuos por marca" ;q 
550 IF qOINT(q) OR qJKlBCMC THEN 540 
560 CLS ¡LOCATE 20-LEN (NV$) /2,1 ¡F'RINT NO* 

570 F'LOT 112,368,1 ; DRAW 112,64,1: DRAW 460,64,1 
580 LOCATE 7,2:PRINT "F" ¡LOCATE 30,22:F'RINT "Clase" 

590 FOR m=0 TO 18 

600 LOCATE 1 ,21-m ¡F'RINT USING "#####" ;m#q ; sPRINT " " 

630 NEXT 

620 FOR j=l TO c 

630 LOCATE 7+j,22sPRINT "!" 

640 NEXT 

650 FOR j=l TO c 
660 o=o+l 

670 color=(j MOD 2)+2 

680 FOR n=0 TO INT(y<j)/q-0.5) 

690 F'EN color ¡LOCATE 7+j ,21 -n ¡F'RINT CHR*<343) 

700 NEXT ¡NEXT 
73 0 F'EN 1 

720 LOCATE 2,25 ¡F'EN 3 ¡F'RINT "FREC . ACUMULADAS PULSA UNA TECLA" ¡F'EN 1 
730 i$=INKEYí¡IF ií="" THEN 730 EL.SE CLS 
740 REM POLIGONO DE FREC. ACUM. 

750 LOCATE 20-LEN (NVÍ) /2,1 ¡F'RINT NV* 

760 LOCATE 6,1 ¡F'RINT ¡LOCATE 30,22¡PRINT "Clase" 

770 LOCATE 6,21 ¡F'RINT "O " ¡LOCATE 5,12¡F'RINT "50_" ¡LOCATE 4,4¡F'RINT "300_" 

780 FOR j = 1 TO c ¡LOCATE 7+j,22:F'RINT " ! " ¡NEXT 

790 Pl. OT 3 3 2,368,3 : DRAW 1 12,64,3 ¡ DRAW 460 ,64,3 

800 F'LOT 118 ,64,3 ¡DRAWR 17 ,y (1) *272/h ,3 

810 FOR j=2 TO c 

820 DRAWR 15,y<j)#272/h ,3 

830 NEXT 

840 F'EN 3 ¡LOCATE 2,25 ¡F'RINT "Otros datos o terminar D/T" 

850 i$=INKEY$:IF if="" THEN 850 
860 i$=UPPER$(ii) ¡IF ií="D" THEN RUN 
870 IF i$="T" THEN 880 ELSE 850 

880 CLS ¡F'RINT ¡F'RINT ¡F'RINT "PREPARADO PARA OTRO PROGRAMA" ¡F'EN 1 
890 RUN "" 

900 FOR re=l TO 999¡NEXT¡RETURN 
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BIBLIOTECA 


10 REM <-.'BIBLIOTECA DE PROGRAMAS>> 

20 REM COPYRIGHT M..J.C. & F.A.P., 1985. 

30 BORDER 1¡INK 0,1:1NK 1,24:1NK 2,20;INK 3,26,6:PAPER O■PEN 3:MODE O 
40 LOCATE 5,5 :PRINT"BI8L IOTECA" :L OCATE 9,7 :F'RINT"DE" :LOCATE 5,9 :F'RINT"PROGRAMA 
S" ¡PEN 2 ¡LOCATE 3,13 ¡F'RINT" ALMACENAMIENTO" ¡LOCATE 9,15 ; F'R I NT "EN" :L.OCATE 6,17;F' 
RINT"CASSETTE" ;TM-2000 :GOSIJB 9000 :SPEED INK 5,5sTM=1 000 ¡GOSIJB 9000 :SF'EED INK 5 
O , 50 

50 MODE 1 :PEN 1 :LOCATE 8,2;F'RINT"BIBLIOTE'CA DE PROGRAMAS" ¡LOCATE 1,5:PRINT" E 
ste programa te permitirá ir al mace- rtando en un fichero de cassette todos 1 
os programas que tienes, para que en cualquier momento puedas acceder a el," 
60 PRINT"saber cuantos programas tienes, de que tipo son (juego, didáctico, u 
til idad) , en que cinta se encuentran y cual es su calificación según tu ju:i.ci 
o (bueno , regu1ar, malo,...)." 

70 F'RINT¡F'RINT" El programa te presentara un menú paraque puedas elegir una c 
ua) quiera de sus opciones." ¡PRINT ¡PRINT" Para utilizarlo debes tener una cint. 
a de cassette destinada a ir almacenando el fichero biblioteca." 

80 DIM bbí < 1000) ¡GOSIJB 9050 

90 LOCATE 1,24:F'RINT"PARA PASAR AL MENU PULSA CUALQUIER TECLA" 

100 IF INKEY#-"" THEN 100 EL.SE CLS 

110 LOCATE 10,4:F’RINT"MENU DE OPCIONES" ¡LOCATE 3,7 ¡F'RINT" 1 ABRIR UN NUEVO FI 
CHERO" ¡LOCATE 3 ,9 ;F'RINT"2 .- A(?ADIR NUEVOS PROGRAMAS" ¡LOCATE 3,11 :PRINT"3 .- BUS 
CAR UN PROGRAMA"¡LOCATE 3,13¡PRINT"4SACAR UNA LISTA DE PROGRAMAS"¡LOCATE 3, 
15 ¡F'RINT "5.- GRABAR E 

120 LOCATE 3,17 ¡F'RINT "6 TERMINAR EL PROGRAMA" : PEN 3:L„0CATE 5 ,20 ;F'RINT"F'ULSA 

LA OPCION DESEADA"¡PEN 1 

130 L$=INKEYí:IF L$="" THEN 130 EL.SE L=VAL.(L*)¡IF L<1 OR |_>6 THEN 130 
140 CLS 

150 ON L GOSIJB 200 ,300 ,500,900,1500,1600 

160 CLS¡GOTO 110 

200 REM ABRIR NUEVO FICHERO 

205 LOCATE 1 ,10 : INF'UT"ESTAS SEGURO DE QUERER ABRIR UN NUEVO FICHERO (S/N) " ;R 
'$ :RÍ=UF'F'ER'Í : (R$) 

207 IF Rf.= "N" THEN 495 EL.SE IF R$<>"S" THEN CLS ¡GOTO 205 

210 LOCATE 1,12 ¡INF'UT "NOMBRE DEL FICHERO" ¡NFÍ 

215 IF LEN(NFí)=0 THEN 210 

220 NN=0 

230 GOTO 350 

300 F'EN 1 ¡LOCATE 4,3 : F'R I NT "ESTA EL FICHERO EN MEMORIA (S/N)" 
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310 RBí=INKEY$;IF RBÍ-"" THEN 310 EL SE RBÍ=UPPERÍ (RBí) : IF RBíO"S" AND RBíO"N 
" THEN 310 

320 IF RB$="S" THEN 350 

330 LOCATE 3,3: INF'UT "NOMBRE DEL. FICHERO AL. QUE AÑADIMOS LOSPROGRAMAS" ;NAÍ 
340 GOSLJB 3000 
350 CLS:NN=NN+1 

360 LOCATE 4,2:1NPUT"NOMBRE DEL PROGRAMA";NPÍ 
365 l'F LEN (NF'Í) =0 THEN 360 

370 NPi=UPF'ERi (NF'Í) :L.P=LEN (NF'Í) : IF I..PC10 THEN NP$=NP$+SPACEÍ<10-LP) 

380 CLSsF'EN 2 sF'RI NT "PROGRAMA : " ;NF'$ sF'EN 1 rPRINT :PRINT" TIPO DE PROGRAMA"sPRINT 
:PRINT" J JUEGO"SPRINT:PRINT" E EDUCATIVO"sPRINTsPRINT" U UTILIDADES" 
390 TPÍ=INKEY$:IF TF'Í="" THEN 390 ELSE TF'Í=UF'PERÍ (TPÍ) : IF TP$<>"J" AND TPí<>"E 
" AND TF'f<>"U" THEN 390 

392 IF TP$="J" THEN TQí="JUEGO" ELSE IF TF'Í="E" THEN TQÍ="EDUCATIVO" ELSE TQ#= 
"UTILIDADES" 


395 CLSsPEN 2 sPRINT "PROGRAMA : " ;NF'f- sPRINT" TIPO : " ;TQ$ sF'EN 1 

400 PRINTsPRINTsPRINT" CUAL ES TU CALIFICACION'DEL PROGRAMAs"sPRINTsPRINT" 
M MUY BUENO" sPRINT sPRINT" B BUENO" sPRINT sF'RI NT" E ENTRETENIDO"sPRINT: 
INT" R REGULAR"sPRINTrPRINT" A ABURRIDO"sPRINTsPRINT" F MALO" 


410 CF'í-INKEYí s IF CF'Í^"" THEN 410 ELSE CF'Í=UPF'ERÍ (CF'Í) s IF 
" AND CP$<>"E" AND CF'Í< >"R" AND CP*<>"A" AND CPÍO"F" THEN 
420 PRINTsPRINT"NUMERO DEL CASSETTE EN QUE SE ENCUENTRA EL 
LOCATE 10 ,22 s INF'UT F'F'Í 

IF F'PÍ=CHRÍ<13) THEN 430 ELSE IF VAL (F'F'i) =0 THEN 430 
BBí (NN) =LEFTÍ (NPí ,10)+"/" +TP$+ " / " +CF'Í+ " / " +F'Pí 
CLS 

F'RINT"QUIERES AÑADIR OTRO PROGRAMA (S/N) " 

R$=INKEYÍ:IF Rí="" THEN 480 ELSE RÍ=UF'F'ER$(Rí) sIF RÍO 


430 
440 
450 
460 
470 
480 
480 

490 TF R$="S" 
495 RETURN 


F'R 


THEN 350 


CP$<>"M" AND CF'f<>"B 
410 

PROGRAMA" 


’N" AND Rí< 


500 REM BUSCAR UN PROGRAMA 

510 F'EN 1 s LOCATE 4,3 sF'RI NT "ESTA EL FICHERO EN MEMORIA (S/N)" 

520 R$=INKEY*sIF Rí="" THEN 520 EL.SE Rí=UF'PERí (Rí) s IF RíO"S" AND RÍO"N" THEN 
520 

530 IF Rí="S" THEN 560 

540 F'R INT si NPUT "NOMBRE DEL FICHERO A CARGAR" ; NA* s IF L..EN(NAÍ)=0 THEN 540 
550 GOSUB 3000 

560 CLS s LOCATE 3,2sPRINT"LA BUSQUEDA PUEDES REALIZARLA PORs"sLOCATE 2,4:PRINT" 
i.- NOMBRE DEL. PROGRAMA"sLOCATE 2,6sPRINT"2TIPO DE PROGRAMA"sLOCATE 2,8:PRI 
NT"3CALIFICACION" 

570 Rí=INKEYí:IF Rí="" THEN 570 ELSE R-VAL(Rí):IF RÍO OR R>3 THEN 570 
580 CLS s ON R GOSUB 600,680,750 
590 RETURN 

600 LOCATE 3,5: INF'UT "NOMBRE DEL. PROGRAMA A BUSCAR" ;NF'Í 
610 LF'=LEN (NF'Í) s IF LF'CIO THEN NP$=NF'Í+SF'ACEi (10-L.P) 


620 GOSUB 4000 
630 FOR Z-l TO NN 

640 IF LEFT $ (BBí ( Z ) ,10) =NF'Í THEN GOSUB 401.0 
650 IF Z=NN THEN 4030 
660 NEXT 


670 RETURN 

680 LOCATE 3,5 sF'RI NT "QUE TIPO DE PROGRAMA BUSCAS" sPRINT sPRINT" J JUEGO / E E 
DUCATIVO / U UTILIDAD" 

690 Tpí=INKFYí s IF TP$="" THEN 690 ELSE TF'Í=UPPERÍ (TF'Í) : IF TF'ÍO".]" AND TF'ÍO"E 
" AND TPí<>"U" THEN 690 
700 GOSUB 4000 
705 FOR Z-l TO NN 

710 IF MIDí (BBÍ ( Z ) ,12,1) =TF'Í THEN GOSUB 4010 
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720 IF Z=NN THEN 4030 
730 NEXT 
740 RETiJRN 

750 LOCATE 3 ,5 sPRINT"QUE CALIFICACION TIENE EL. PROGRAMAF'RINT" Ql ¡F BUSCAR (M 
/B/E/R/A/F)" 

760 CP*= INKE Y * s I F CF'*-"" THEN 760 EL SE CP*=UF'F'ER* (CP*) :IF CP*<>"M" AND CP*<>"B 
" AND CP*<>"E" AND CP*<>"R"AND CP*O"A" AND CP*<>"F" THEN 760 
770 GOSUB 4000 
780 FOR Z-1. TO NN 

790 IF MI Dí (BB* (Z ) ,14,1.) =CF'Í THEN GOSUB 4010 
800 IF Z=NN THEN 4030 
810 NEXT 
820 RETURN 

900 REM SACAR LISTA DE PROGRAMAS 

910 PEN 1. sLOCATE 4,3 sPRINT"ESTA EL FICHERO EN MEMORIA (S/N) " 

920 R*=INKEY*s IF R*="" THEN 920 ELSE R*=IJPPER* (R*> s IF RÍO"S" AND R*<>"N" THEN 
920 

930 IF R*="S" THEN 960 

940 F'RINT : INPUT"NOMBRE DEL FICHERO A CARGAR" ;NA* ; IF |..EN(NA*)=0 THEN 940 

950 GOSUB 3000 

960 GOSI.JB 4000 

970 FOR Z=1 TO NN 

980 GOSUB 4010 

990 IF Z-NN THEN 4030 

1.000 NEXT:RETURN 

1500 REM GRABAR EL. FICHERO 

151.0 LOCATE 3,5: INPUT "NOMBRE DEL FICHERO A GRABAR"?NA* 

1520 IF L.EN (NA*) =0 THEN 1510 
1530 OPENOUT NA* 

1540 FOR Z-1 TO NN 
1550 F'R I NT #9 , BB* (Z) 

1555 NFXT 
1560 CLOSEOUT 
1570 RETURN 

1600 REM TERMINAR EL PROGRAMA 

1610 CLS : F'R I NT "PREPARADO PARA EL SIGUIENTE PROGRAMA:" 

1620 RUN"" 

1630 STOP 

3000 REM CARGA DE UN FICHERO 

3010 LOCATE 4,7: F'R I NT " PREPARA EL CASSETTE PARA" : LOCATE 4,9 : F'R I NT "CARGAR EL FIC 
HERO ";NA* 

3020 OF'ENIN NA* 

3030 FOR Z = 1 TO 1000 
3040 INF'UT #9 ,BB* (Z) 

3050 IF EOF=-.t THEN NN=Z:Z = 1000 
3060 NEXT 
3070 GLOSEIN 
3080 RETURN 

4000 CLS sPRINT"NOMBRE" ;TAB( 14) ; "TIPO" ;TAB (22) ; "CAL..IF . " ;TAB (32) ;"N. CINTA" :RETI.) 
RN 

4010 CL=CL+1 sPRINT LEFT* (BB* (Z) ,1.0) ;TAB(1.5) ;MID*(BB*(Z) ,12,1) ;TAB(25) ?MID*(BB* 
(Z),14,1):TAB(35);MID*(BB*(Z),16,5) 

4020 IF CL<19 THEN 4060 

4030 LOCATE 4,25sPRINT"PULSA UNA TECLA PARA CONTINUAR" 

4040 IF INKEY*="" THEN 4040 
4050 CL-0 :CI. S 
4060 RETURN 

9000 FOR t=l TO TMsNEXT:RETURN 

9050 SYMBOL AFTER 63:5YMB0L 64 ,50 ,204 ,0,230,246 ,222,206 ,0 sRETIJRN 
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DON LEONCIO 


10 REM "DOIM LEONCIO" ;(?' A.M.B. y CRIS 

20 BOEDER 3:1NK 0,9sINK 1 ,26:1NK 2,15,9:1NK 3,15 

30 GOSUB 830 

40 k = 1 :1—40;m=6:n—24 

50 DIM mj$(39,19) 

60 PAPER O 5GOSUB 740 sPAPER 3:1 OCATE 1 ,1 SPRINT CHRÍ<20); 

70 F'RINT " Teclea una -frase para que Dan Leoncio la pi erda" : INPUT aí :ai r -=UPPER 
í(aí) 

80 lon=LEN(a$):IF Ion>25 THEN CLS:PRINT "Demasiado larga.":G0T0 70 
90 FOR z=l TO Ion 

100 x = I NT(RND(1)#36+2 .5) :y=INT <RND(1)#16+2.51 

110 IF mj*(x ,y>="" THEN mjííx,y)=MID$<a* ,z , 1) EL.SE 100 

120 NEXTsPAPER O:LOCATE k ,m:PRINT CHRÍ(20 ) ;:BORDER 15:PAPER 3:LOCATE 1,25:PRIN 
T CHRÍ(20) ;:FOR indi=m TO n sLOCATE 40,indi:PRINT " ";:NEXT 

130 PAPER 2 sPEN 1 :FOR x=2 TO 38:FOR y=2 TO 18:L0CATE x ,y+m :PRTNT mjí<x , y) ; ;NEX 

TsNEXT:PAPER O 

140 GOSUB 950:REM aspirador 

150 ga=1:w=35:y=m:tsn=INT(TIME/300> 

160 PAPER 3 : F'EN 1 : i :$= INKEY* : IF i$="" THEN 160 

170 SOIJND 1 ,30,5: LOCATE 2,25 :crono=INT ( (TIME/300) -t.sn) sPRINT "Ti empo"crono :PAP 
ER O 

180 IF ií-CHRí(241) THEN g=l:GOTO 280 
190 IF i$=CHR$(240) THEN g=2;G0T0 350 
200 IF i$=CHRÍ(243) THEN g=3:G0T0 410 
210 IF ü=CHRí (242) THEN g=4;G0T0 470 
220 GOTO 160 
230 REM control 

240 IF mjf(x,y-m)="1" THEN 690 
250 mjí<35,0)="1" 

260 IF mj$(x ,y-m)=" " THEN mjí (x ,y-m> =" 1" :GOTO 1.60 
270 GOTO 530 
280 REM abajo 

290 IF ga=2 OR y=24 THEN F'RINT CHRÍ (7) ; :GOTO 160 

300 IF ga=l THEN LOCATE x ,y :PRINT CHR*(169)CHRÍ(8)CHR*(1 O)CHRÍ(1761 

310 IF ga=4 THEN LOCATE y sPRINT CHRÍ (172) CHR$ (8) CHRÍ (10) CHR$ (176) 

320 IF ga-3 THEN LOCATE x , y : F'R I NT CHR# (1731 CHR# (8) CHRÍ (10) CHRÍ (176) 

330 y—y +1 :ga=g 
340 GOTO 230 
350 REM arriba 
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360 IF ga= 1 0R y=m TRIEN PRINT CHRí (7) ; ¡GOTO 160 

370 IF ga-2 THEN LOCATE x , y ¡F'RI NT CHR* (169 i CHRí (8) CHRÍ (11) CHRí (174) 

380 IF ga=3 THEN LOCATE x, y ¡PRINT CHRí(171>CHR*(8)CHRÍ(11)CHR*(174) 

390 IF ga-4 THEN LOCATE x ,y¡PRINT CHR$(170)CHR$(8)CHR$(11)CHE*(174) 

400 y — y — 1 ;ga=g¡GOTO 230 
430 REM dereha 

420 IF ga=4 OR x=l-l THEN PRINT CHRÍ(7);¡GOTO 160 
430 IF ga-3 THEN LOCATE x, y ¡PRINT CHRÍ<168)CHR*(175) 

440 IF ga=2 THEN LOCATE x,y ¡PRINT CHR$(172)CHR*(175) 

450 IF ga=1 THEN LOCATE x , y ¡PRINT CHRÍ(170)CHRT(175) 

460 x—x + 1 ¡ga—g¡GOTO 230 
470 REM izquierda 

480 IF ga-3 OR x = l THEN PRINT CHRÍ(7) ; ¡GOTO 160 

490 IF ga-4 THEN LOCATE x, y ¡PRINT CHR¿(168)CHRí(8)CHR*(8)CHR*(177) 

500 IF ga=l THEN LOCATE x, y ¡PRINT CHR$(171)CHR*(8)CHRi(8)CHRÍ(177) 

510 IF ga=2 THEN LOCATE x ,y ¡PRINT CHRt(173)CHRS(8> CHR*(8)CHR*(177) 

520 x=x — l ¡ga-g¡GOTO 230 
530 REM aspira letra 

540 ls=300 ¡PAPER 3¡F'EN 1 ¡LOCATE 30,4¡WHILE POS (#0) >LEN <b*) +2 ¡FOR o=0 TO 9¡NEX 
T ¡ SO UN Ti 1,1s,8¡1s=1s-3 O 

550 PRINT CHRÍ(24) ;mj$(x,y-m> ;CHRí(24) " ¡CHRÍ(8)CHR$(8)CHRÍ(8) ;¡WEND 

560 b$=bí+mjí (x , y-m) ¡F'EN 1 ¡LOCATE 3,4 ¡PRINT b$ ¡mj$ (x ,y-m>i " 

570 IF Ion >LEN <b$) THEN 160 
580 FOR tz — 1 TO 1000¡NEXT 
590 IF aí=bí THEN 620 

600 CLS¡PRINT " LO SIENTO. NO LO HAS CONSEGUIDO"¡PRINT aí ¡PRINT b$ 

630 GOTO 630 

620 CLS ¡PRINT " ENHORABUENA LO HAS CONSEGUIDO EN "¡crono;" SEG."¡F' 

RINT 

630 PRINT" Otra partida S/N" 

640 i$=INKEYí¡IF it="" THEN 640 
650 IF i$="n" OR :l$="N" THEN 670 

660 IF i#="s" OR ií="S" THEN CL.S¡GOTO 60 EL.SE 640 

670 CLS ¡LOCATE 2,10 ¡PRINT "PREPARADO PARA OTRO PROGRAMA" 

680 RUN"" 

690 REM punk 

700 l'NK 1,6,17 ¡FOR i=0 TO 999 ¡NEXT 
710 FOR 1=0 TO 999 ¡NEXT ¡INK 1,26 

720 CLS ¡PRINT " MALA SUERTE. TE HAS ELECTROCUTADO"¡PRINT 
730 GOTO 630 
740 REM cabecera 

750 MODE O ¡LOCATE 4,5 ¡PRINT" DON LEONCIO" ¡LOCATE 4,15 ¡PRINT " PI ERDEF'AL ABRAS" 
760 FOR x = l TO 39¡F0R y=0 TO 19 ¡mjí(x,y)=""¡NEXT¡NEXT¡b$=""¡MODE 1 
770 PRINT ¡PRINT¡PRINT " Don Leonc io es un perdedor de palabras incorregib le, t 
u debes ayudarle a recogerlas."¡PRINT 

780 PRINT¡PRINT " Y la mejor manera de recoger palabras es un buen aspirador 
de letras ¡PRINT 

790 PRINT " Pero cuidado, que debes aspirarlas en el orden correcto para form 
ar la frase y sin cortar el cable"¡PRINT 

800 PRINT " Mueve el aspirador con las teclas" ¡PRINT " ";CHR$(240) " ; 

CHRf- <24.1 > ; " " ;CHRí (242) ; " " ¡CHR* (243) ¡PRINT 

810 F'EN 2 ¡PRINT ¡PRINT " SUERTE " ¡PRINT ¡PRINT " PULSA UNA T 

ECLA" ¡F'EN 1 

820 ií= INKEYÍ ¡ IF THEN 820 

830 SYMBOL AFTER 127 

840 SYMBOL 168,0,0,255,136,136,255,0,0 
850 SYMBOL 169,60,36,36,36,60,36,36,36 
860 S YMBOL 170,60,36,35,20,8,7,0,0 
870 SYMBOL 171,36,36,212,136,144,224,0,0 
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880 S YMBOL 172 ,0,0,7,8,20,35,36,60 

890 SYMBOL 173,0,o,224,144,136,212,36,36 

900 S Y MBOI 174,255,129,129,66,60,36,36,36 

91 O 8 Y MBOL 175,7,9,241,145,145,241,9,7 

920 SYMBOI 176,36,36,36,60,66,129,129,255 

930 SYMBOL 1 77,224,144,1.43,136,136,143,144,224 

940 RETURN 

950 REM aspirador 

960 ba*-==STRING*(32,CHR$<143) ) ;be$=STRJNG± (30 ,CHR$ < 140) > sPAPER 3sPEN 1 
970 L OCATE 40,5sPRINT CHR$(19):LOCATE 1 ,1 :PRINT baá-':LOCATE 1,2sPRINT baí 
980 F'R T NT CHRÍ < 3.33) : TAB (32) ; CHRÍ (1381 

990 PRINT CHRÍÍ133) ; TAB (32) ;CHR$ (.143) CHRS (168) CHRÍ (168) CHRí (173) 

1000 REM PRINT CHR* <133) ¡¡TAB (32) ;CHR* (138) ; " " S CHRt(169) 

.1010 PRINT CHR*(141> ; be$ ¡¡CHR$ (142) ";CHR*(169> 

1020 PAPER OsLOCATE 35, msPRINT CHR¿(176) 

1030 LOCATE 3,2sPRINT a$ 

1040 RETURN 



34 - AMIGOS DEL AMSTRAD - 1987 

































Microordenador 
ZX SPECTRUM 


CURSO DE 


MCIIV 


Microordenador 

COMMODORE 


Microordenadores 
AMSTRAD, MSX, PC 


Curso CEAC 

de BASIC + Microordenadores: 
un diálogo permanente 
con el ordenador. 


Nombre y apellidos. 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
EDUCACION Y CIENCIA N.° 8039185 

CBOLETIN OFICIAL DEL ESTADO 3-6-831 
Aragón, 472 (Dpto, 08013 Barcelona 

TeL: 1931 245 33 06 


Domicilio 


C, Postal 


Profesión 


.Edad. 


Población. 
Provincia _ 


CEAC. Aragón, 472 

(Dpto. ) 08013 Barcelona 


ott|^ e 2¿533° 6 


*deBa 


Para 

saber cómo 
hablar con los 
ordenadores 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 
lenguaje de altp nivel. 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


Sí 


deseo recibir a la mayor 
brevedad posible información 
\f sobre el Curso de: _ 


Otros Cursos: 

- Introducción a 
la Informática 

- Electrónica Icón experimentos! 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 




CEAC 


GRATUITAMENTE 




























